у меня в задачке выдает ответ с 0 (0008). задание: перевод

У меня в задаче выдает ответ с 0 (0008). задание: перевод из десятичной системы в восьмеричную в паскале, используя while. найдите ошибку.
program zad3;

var
n, k: integer;

begin
read(n);
while n gt; 0 do
begin
k := 64;
write (n div k);
write (n mod 8);
n:=n div 8;
n:= n mod k;
k:=k div 8;
end;
end.