запись обратного порядка Опции

[Ирочка]

Ребята помоги пожалуйста немогу разобрать...
Составить программу определения чила, полученного записью обратного порядка цифр заданного числа. Заданное число вводится с клавиатуры.

[SuperMozg]

Примерно так:

var
num: integer;
i, j: integer;
mas: array[1..10] of integer;
begin
writeln('Введите число:');
readln(num);
i:= 0;
repeat
i:= i + 1;
mas[i]:= num mod 10;
num:= num div 10;
until num=0;
writeln('Число в обратном порядке:');
for j:= 1 to i do write(mas[j]);
readln;
end.