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

const max=10;
var i, t: longint;
    r: integer;
    st, s: string;
    a: array [1..max] of integer;
begin
  for i:=1 to max do read(a[i]); writeln;
  for i:=1 to max do write(a[i]:4,' '); writeln;
  for i:=1 to max do begin
    str(a[i],st);
    s[0]:=chr(length(st));
    for t:=1 to length(st) do
      s[length(st)-t+1]:=st[t];
    val(s,a[i],r);
  end;
  for i:=1 to max do write(a[i]:4,' '); writeln;
  readln;
end.

Program Z5;
 uses crt;
 type mass=array [1..100] of integer;
 var  i,n,s:integer;
       a:mass;
  procedure input;
   begin
    write('n=');read(n);
    writeln('§ ¤ ©â¥ í«¥¬¥*âë ¬ áᨢ ');
     for i:=1 to n do
      begin
       write('a[',i,']=');read(a[i]);
      end;
    end;
  Procedure output;
   begin
    write ('¬ áᨢ A=(');
     for i:=1 to n do
     write (a[i]:6);
     write(')');
     writeln;
   end;
  Procedure Main;
   begin
 for i:=1 to n do
  s:=0;
  while a[i]>0 do
  begin
  s:=s*10+a[i] mod 10;
  a[i]:=a[i] div 10;
  a[i]:=s;
  end;
  end;
   BEGIN
     clrscr;input;
     clrscr;output;
     main;
    readkey
   END.

Program Z5;
 uses crt;
 type mass=array [1..100] of integer;
 var  i,n,s:integer;   { ,max §**зҐ*ЁҐ,   }
       a:mass;
procedure input;
begin
  write('n=');read(n);
  writeln('§*¤*©вҐ н«Ґ¬Ґ*вл ¬*ббЁў*');
  for i:=1 to n do
  begin
    write('a[',i,']=');read(a[i]);
  end;
end;
Procedure output;
begin
  write ('¬*ббЁў A=(');
  for i:=1 to n do
    write (a[i]:6);
    write(')');
    writeln;
end;
Procedure Main;
begin
  for i:=1 to n do
    s:=0;
  while a[i]>0 do
  begin
    s:=s*10+a[i] mod 10;
    a[i]:=a[i] div 10;
  end;                   {ERROR!}
  a[i]:=s;
end;
BEGIN
  clrscr; input;
  clrscr; main; output;  {ERROR!}
  readkey
END.

Program R1;
 uses crt;
 type mass=array [1..10] of integer;
 var  i,n:integer;
       a:mass;
       s:integer;
  procedure input;
   begin
    write('n=');read(n);
    writeln('задайте элементы массива');
     for i:=1 to n do
      begin
       write('a[',i,']=');read(a[i]);
      end;
    end;
  Procedure output;
   begin
    write ('массив A=(');
     for i:=1 to n do
     write (a[i]:6);
     write(')');
     writeln;
   end;
  Procedure Main;
   begin
 for i:=1 to n do
  begin
  s:=0;
  while a[i]>0 do
   begin
    s:=s*10+(a[i] mod 10);
    a[i]:=a[i] div 10;
   end;
  a[i]:=s;
  write (a[i]:5);
  end;
  end;
   BEGIN
     clrscr;input;
     clrscr;output;
     main;
    readkey
   END.