помогите, составить такую программу на языке Паскаль:

Question

Дана строка символов, содержащая не более 255 цифр. Необходимо выяснить является ли данное число палиндромом?

Елена Кадлен · Accepted Answer

program palindrom; 
uses crt; 
var a,b:string; 
i,j,k:integer; 
pal:boolean; 
begin 
clrscr; 
writeln('ввести строку '); 
 readln(a); k:=0; 
 for i:=length(a) downto 1 do begin 
 k:=k+1; b[k]:=a; end; 
 writeln('----------'); 
 pal:=false; 
 for i:=1 to k do 
 if a <> b then pal:=true; 
 if pal then writeln('no ') else writeln('palindrom'); 
 for i:=1 to k do 
 write(b); 
 writeln; 
writeln('Конец задачи '); 
readln; 
end.

Сергей Сирица · Answer

var 
 s: string; 
 i,f: byte; 
begin 
 write('String: '); 
 readln(s); 
 f := 0; 
 for i := 1 to length(s) div 2 do 
 if s <> s[length(s)-i+1] then begin 
 writeln('No palindrome'); 
 f := 1; 
 break 
 end; 
 if f = 0 then 
 write('Palindrome'); 
readln 
end.

Marie_O · Answer

for( i = 0; i2 = str.length; i < i2; i++, i2-- ) if (a[ i ] != a[ i2 ]) return false; 
return true;