Составить программу, которая выводит обратный порядок цифр

var
  n:integer;
begin
  repeat
    write('N = '); readln(n);
  until (n>=100) and (n<=999);
  writeln('Было введено число - ',n);
  writeln('_________________________');
  writeln('Младшая цифра - ',n mod 10);
  writeln('Средняя цифра - ',n div 10 mod 10);
  writeln('Старшая цифра - ',n div 100);
  writeln('_________________________');
  writeln('Перевёрнутое число - ',n mod 10,n div 10 mod 10,n div 100);
end.

program  ff;
uses crt;
  var
  a:array [1..100] of integer;
  i,n:integer;
begin 
  for i:= 1 to 3 do
  read(a[i]);
  for i:= 3 dowto 1 do
  write(a[i]);
end.

const pos_d: array[1..3] of string[7] = ('Младшая', 'Средняя', 'Старшая');
      hor = '________________________';
var i, n, k, d: integer;
begin
  repeat
    write('100 <= n <= 999; n = ');
    readln(n)
  until (100 <= n) and (n <= 999);
  writeln('Было введено число - ', n);
  writeln(hor);
  k := 0;
  for i := 1 to 3 do
    begin
      d := n mod 10;
      n := n div 10;
      k := k * 10 + d;
      writeln(pos_d[i], ' цифра - ', d)
    end;
  writeln(hor);
  writeln('Перевёрнутое число - ', k);
  readln
end.