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

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.