Найти 1-ое, 2-ое и 3-е число трёхзначного числа - Pascal ABC

Формулировка задачи:

дано число 350. надо найти 3, 5 и 0 из этого числа... то есть например должно выйти a=3 , b=5 , c=0. и сделать с помощью команд mod, div.

Решение задачи: «Найти 1-ое, 2-ое и 3-е число трёхзначного числа»

Листинг программы

var masnum: array [1..100] of integer;
i,n,k:integer;
begin
 writeln('Vvedite chislo');
readln(n);
k := 0;
while n > 0 do begin
k := k + 1;
masnum[k] := n mod 10;
n := n div 10;
end;
for i:=k downto 1 do
    write(masnum[i]:3);
readln;
end.

Объяснение кода листинга программы

Объявляются три переменные: — masnum (массив целых чисел) — i (для цикла) — n (для хранения введенного числа) — k (для хранения количества цифр числа)
Выводится сообщение Vvedite chislo (Введите число)
Пользователь вводит число
n присваивается значение введенного числа
k инициализируется как 0
Запускается цикл, который выполняется, пока n больше 0
Внутри цикла k увеличивается на 1
masnum[k] присваивается остаток от деления n на 10 (первая цифра числа)
n делится на 10 (удаляется последняя цифра числа)
После окончания цикла, i инициализируется как k и начинает работать цикл, который пишет каждую цифру массива masnum начиная с последней
После выхода из второго цикла, программа завершается.