Цифры натурального числа поместить в массив в том же порядке, в каком они записаны в числа. ( турбо паскаль)

Var j,n,i: longint;             a,b: array [1..1000] of integer; begin                    readln(n); // считываем число                    i: =1; // начинаем с первого элемента массива           while (n> 0) do //пока n больше нуля           begin                 a[i]: =n mod 10;   //тем самым выбираем последнюю цифру числа                 n: =n div 10; // откидываем последнюю цифру                 i: =i+1; // следующий элемент массива           end;                   // по окончании в массиве a будет храниться наше число только                 // в  обратном порядке           i: =i-1; // теперь i равно длине числа +1 поэтому отнимаем 1           for j: =i downto 1 do // с конца массива а до 1           begin                 b[i-j+1]: =a[j]; // заполняем b в обратном порядке           end;           //теперь в массиве b хранится наше число в нужном порядке           for j: =1 to i do           begin                         write(b[j],' ');           end; end.

x = int(input('Введите первое число: '))

y = int(input('Введите второе число: '))

if x >= y:

result = x/y

elif x <= y:

result = y/x

print(result)