Составить программу, проверяющую является ли число палиндромом

Var S1, S2 : String; N : Byte; Error : Boolean;

begin

Write ('Введите натуральное число: ') ; ReadLn (S1) ;

Error : = False; S2 : = ''; for N : = 1 to Length (S1) do if S1[N] in ['0' ... '9'] then S2 : = S1[N] + S2 else Error : = True;

if Error then WriteLn ('В числе должны быть только цифры! ')

else if S1 = S2 then WriteLn ('Введённое число - является полиндромом. ')

else WriteLn ('Введённое число - не является полиндромом. ')

end.