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

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.