Помогите решить задачу по информатике. Дана строка символов определить является ли она палиндромом.

Пожалуйста: http://bit. ly/11Y2HDz
(не забудь убрать пробелы)

Удачи!

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 [ i ]; end;
writeln('----------');
pal:=false;
for i:=1 to k do
if a [ i ] b [ i ] then pal:=true;
if pal then writeln('no ') else writeln('palindrom');
for i:=1 to k do
write(b [ i ]);
writeln;
writeln('Конец задачи ');
readln;
end.