Написать программу, которая определяет, является ли введенное слово палиндромом ("перевертышем", при write, lenght и т.п,через паскаль)

//pascalabc.net v3.3 1633

var str: string;

begin

write('введите слово: ');

readln(str);

if reversestring(str) = str then

  writeln('слово является палиндромом')

else

  writeln('слово не является палиндромом');

end.

Паскаль авс program loctarugar; uses crt; const   eps=0.001; function fact(n : integer) : longint;   begin       if n < = 1                 then  fact : = 1                 else    fact : = n * fact(n - 1);   end; var   t,s: real;   i: integer; begin   writeln('*** alphaeus is ***');   writeln('***                  ok                        ***');   writeln();   writeln('программа вычисляет частичную сумму ряда с заданной точностью');   writeln('  общий член ряда:   an = ((3^n)*n! )/ (2n)! ');   writeln('вычисление прекратится, когда модуль очередного слагаемого станет меньше 0,001');   writeln();   s: =0;     i: =1;     t: =1;   while t> eps do       begin           t: =(power(3,i)*fact(i))/(2*fact(2*i));           s: =s+t;           writeln('a(',i,')=',t: 0: 6,'  s=',s: 0: 6);           i: =i+1;         end;   writeln();   writeln('сумма ряда равна',s: 0: 6); end.