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

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.