симметричная строка Опции

[tigrа]

Помогите задачу решить,пожалуйста. Читается ли введенное целое число,имеющее 2 и более знаков одинаково справа на лево и слева на право?

[APAL]

Вот на скорую руку сваял...

Код

Var St : String;
i : Byte;
Begin
 Write('Число: '); Readln(St);
 For i:=1 to (Length(St) div 2) do
   If St[i]<>St[Length(St)-i+1] then
   Begin
      Writeln('Не соответствует требованиям.');
      Halt(0);
   End;
   Writeln('Соответствует требованиям.');
End.