проверьте программу про палиндром

[Nice rabbit]

Проверьте если не трудно мою программу про палиндром.

Условие задачи:
Ввести строку символов и определить является ли введённая строка полиндромом.

Program Nice;
var
a:string;{строка символов}
n,i:real;{n-номер букв в слове}
BEGIN
WriteLn('3agaute a' , a);
   if Length(a) mod 2 =0 {тоесть я проверяю число на чётность -эта проверка по моему 
мнению должна удовлетворять чётным числам}
   then
     for i:=1 to n/2 do
     for n:=n down to n/2+1   {на примере словo "умму" проверяются последняя 
и первые буквы ,а также вторая и третья совпадают(да ,слово придумано),но это не главное}
     if s[i]=s[n]
        then Writeln('chislo est palindrom')
        else Wrirteln('chislo ne palindrom')
  else
     for i:=1 to div n/2           {здесь для нечётных слов}
     for n:=n down to div(n/2+1) {по грамматике надеюсь можно ли так ?}
         if s[i]=s[n]
         then WriteLn('shislo est palindrom') {n=TRUE}
         else  Writeln('shislo est palindrom')  {n=FALSE  писать полсе ' ?}
End.

прошу оставить комментарии по программе и недочётам {а то у меня паскаль выводит маленькие недочёты на 6ой и 10строчке}

[russian-stalker]

проще сделать так: читаем слово, переворачиваем его, сравниваем с первым.

[Nice rabbit]

прикольная идейка))неподскажешь как перевернуть слово?

[russian-stalker]

for i:=1 to length(a) do
 b:=a[i]+b;

[Скарам]

помню на лабах такую задачу решали,загоняя строку в стек и очередь,потом поэлементно разбирать и сравнивать..)

[Nice rabbit]

{b:string}.
а можно так
for b:=n down to 1 do
for a:=1 to n do
b[n]:=a[i]



правильный цикл перед операцией присваивания b ?

[ОДИНОЧЕСТВО В СЕТИ]

А зачем все эти проверки на четность и нечетность?

var s:string;
i,k:integer;
pal:boolean;
begin
readln(s);
k:=length(s);
pal:=true;
for i:=1 to k div 2 do
if s[i]<>s[k-i+1] then begin pal:=false;break;end;
if pal then writeln('является')
else writeln('не является');
readln;
end.

[Nice rabbit]

Спасибо за ещё один неплохой вариант.Просто про true и false не помню как делать))

[fenix-elite]

Прикольная задача )) Я ее вообще 3 вариантами решал. Первый вариант это жесть была ) Тоже смотрел четность\нечетность, проверял по элементам и т.д. Во 2-ом тоже че-то намутил. В третьем, просто во вторую строку переписал первую в обратном порядке, и сравнил.