Написать программу, которая запрашивает слово и проверяет, является ли это слово палиндромом. Pascal ABC

Var

s:string;

i, n:byte;

p:boolean;

begin

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

Readln (s) ;

n:=Length (s) ;

p:=true;

for i:=1 to n div 2 do

if s[i]s[n-i+1] then

begin

p:=false;

break

end;

if p then Writeln ('Палиндром')

else Writeln ('Не палиндром')

end.

var

s: string;

function Invert (s: string) : string;

var

i: integer;

t: string;

begin

t : = '';

for i : = 1 to length (s) do

t : = s[i] + t;

Invert : = t;

end;

begin

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

Readln (s) ;

s : = Trim (s) ;

s : = Uppercase (s) ;

if Invert (s) = s then

Writeln ('Палиндром')

else

Writeln ('Не палиндром') ;

end.