Задание с числами

uses crt;
{функция получения обращенного числа}
function Perev(n:longint):longint;
var m,p:longint;
    i:integer;
begin
m:=n;{запомним число}
p:=0;{начнем новое}
while m>0 do{пока не ноль}
  begin
    i:=m mod 10;{последняя на каждой итерации цифра}
    p:=p*10+i;{умножаем уже имеющееся число на 10 и приписываем очередную цифру}
    m:=m div 10;{сокращаем число и все повторяем}
  end;
Perev:=p;{значение функции}
end;
const nmax=20;{максимальное количество чисел, можно взять и другое}
var a,b,c:array[1..nmax] of longint;{3 массива для хранения чисел}
    n,i,k:byte;
begin
clrscr;
repeat
write('Количество чисел до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Введите ',n,' натуральных чисел не более 999 999 999');
{чтобы удвоенное число вошло в тип longint}
k:=0;
for i:=1 to n do
 begin
  repeat
   write('a[',i,']=');
   readln(a[i]);
  until(a[i]>0)and(a[i]<=999999999);
  if Perev(a[i])=a[i] then k:=1;{если палиндром, фиксируем}
 end;
clrscr;
writeln('Исходные числа:');
for i:=1 to n do
write(a[i],' ');
writeln;
writeln;
if k=1 then write('Среди этих чисел есть палиндромы!')
else{если нет палиндромов}
 begin
  for i:=1 to n do
   begin
    b[i]:=Perev(a[i]);{в массив В пишем перевернутые}
    c[i]:=a[i]+Perev(a[i]);{в массив С суммы}
   end;
  writeln('Перевернутые числа:');
  for i:=1 to n do
  write(b[i],' ');
  writeln;
  writeln;
  writeln('Суммы исходного и перевернутого:');
  for i:=1 to n do
  write(c[i],' ');
 end;
readln
end.