Найти числа, получаемые из исходных чисел, записью цифр в обратном порядке

var a : array [1..1000] of integer;
n,i,j,sn : integer;
s,s1:string;
Begin
  write('n='); readln(n);
  for i:=1 to n do
  begin
    readln(s);
    sn:=length(s);
    for j:=sn downto 1 do
    begin
      s1:=s1+s[j];
    end; 
    val(s1,a[i],sn);
    s1:='';
  end;
  for i:=1 to n do 
    writeln(a[i]);
End.

program my;
var
a:longint;
b:array[1..10] of integer;
i,k:integer;
begin
writeln('Vvedite chislo:');
readln(a);
k:=0;
REPEAT
k:=k+1;
B[K]:=A mod 10;
a:=a div 10;
until a=0;
 
for i:=1 to k do
a:=a*10+b[i];
writeln(a);
 readln;
end.

program my;
var
a:longint;
b,c:longint;
i,k:integer;
begin
writeln('Vvedite chislo:');
readln(a);
while a<>0 do
begin
c:=A mod 10;
a:=a div 10;
b:=b*10+c;
end;
 
writeln(b);
 readln;
end.

var
  n: Integer;
  a, b: Longint;
begin
  Write('Введите n: '); ReadLn(n);
  for n:=1 to n do begin
    ReadLn(a); b:=0;
    repeat
      b:=b*10+a mod 10;
      a:=a div 10;
    until a=0;
    WriteLn(b);
  end;
end.

var
  n: Integer;
  a, b: Longint;
begin
  Write('Введите n: '); ReadLn(n);
  for n:=1 to n do begin
    ReadLn(a); b:=0;
    while a>0 do begin
      b:=b*10+a mod 10;
      a:=a div 10;
    end;
    WriteLn(b);
  end;
end.

Function IntRevers(a : Longint) : Longint;
Var k : Longint;
Begin
  k:=0;
  While a>0 do
  Begin
    k:=k*10+(a mod 10);
    a:=a div 10;
  end;
  IntRevers:=k;
end;
 
Begin
  Writeln(IntRevers(123450));
end.

var
  i: Integer;
...
  for i:=1 to n do ...

   for i:=1 to n do 
....