Найти все числа в записи целого трёхзначного числа

program zz1;
var n,i,k:integer; // задаем переменные целого типа
begin
write(введите данное трехзначное число ); // вводим данное трехзначное число с клавиатуры
read(n);
i:=1; // задаем изначальное значение для количества цифр
while ngt;0 do // организуем цикл, пока в заданном числе числа не завершатся
begin
k:=n mod 10; // обретаем заключительную цифру
n:=n div 10; // отбрасываем ее
writeln(i,-ая цифра данного трехзначного числа = ,k); // выводим ответ
i:=i+1; // увеличиваем количество цифр
end;
end.