Работа со строками(Pascal)(не работает программа)

[mxax]

Вводится целое число. Определить, является ли оно палиндромом, т.е. таким, десятичная запись которого читается одинакого слева направо и наоборот. Обеспечить проверку корректности вводимых данных (наличие в числе только цифр)
вот решение, помогите найти в чем ошибка...

uses CRT;
LABEL m;
VAR str : string;
      c : char;
      n : integer;
BEGIN
writeln('Vvedite chislo dlinoi ne bolee 255 i nazhmite ENTER');
repeat
  c:=readkey;
  if c in ['0','1','2','3','4','5','6','7','8','9']
    then  begin
            str:=c;
            write(c);
          end
    else writeln('Eto ne zifra');
until c in ['0','1','2','3','4','5','6','7','8','9'];
n:=1;
repeat
  c:=readkey;
  if c<>#13
    then if c in ['0','1','2','3','4','5','6','7','8','9']
           then begin
                  str:=str+c;
                  writeln(c);
                  n:=n+1;
                end
           else writeln('Eto ne zifra')
    else goto m
until n<=255;
m:
for n:=1 to length(str) do
  if str[n]<>str[length(str)+1-n]
    then begin
           writeln('Chislo ne yavlyaetsya palindromom');
           readln;
           halt;
         end;
writeln('Chislo yavlyaetsya palindromom');
readln;
END.

[Mad_Cat]

var i:integer;str,buf:string;f:boolean;
begin
readln(str);
buf:='';f:=true;
for i:=1 to length(str) do
if not (str[i] in['0'..'9']) then begin f:=false;break;end
else buf:=str[i]+buf;
if f then begin
  if str=buf then writeln('палиндром')
else writeln('не палиндром')
end
else writeln('не число');
end.