Числа-палиндромы

uses crt;
function Palindrom(n:longint):boolean;
var m,p:longint;
    i:integer;
begin
m:=n;
p:=0;
while m>0 do
  begin
    i:=m mod 10;
    p:=p*10+i;
    m:=m div 10;
  end;
if p=n then Palindrom:=true
else Palindrom:=false;
end;
var n,i,k:longint;
begin
clrscr;
write('Vvedite naturalnoe chislo n=');
readln(n);
k:=0;
for i:=1 to n-1 do
 if Palindrom(i) then
  begin
   writeln(i);
   k:=k+1;
   if k mod 20=0 then readln;
  end;
readln
end.

program EvgeniiSp;
uses crt;
var
 x: string;
 n,count: integer;
//---------------------------
 procedure Input_data;
  begin
   write('Ââåäèòå öåëîå ÷èñëî(N): ');
   readln(n);
  end;
//---------------------------
 procedure Polindrom(x: string);
  var
   flag: boolean;
   i,j: integer;
  begin
   j:=1;
   flag:=false;
   i:=length(x);
   while i > j do
    begin
     if x[j] <> x[i] then break
      else flag:=true;
     j:=j+1;
     i:=i-1;
    end;
    if flag = true then writeln(x,' - палиндром.');
  end;
//---------------------------
begin
 clrscr;
 Input_data;
 count:=1;
 while count <= n do
  begin
   Str(count,x);
   Polindrom(x);
   count:=count+1;
  end;
end.