ПОМОГИТЕ ПОЖАЛУЙСТА)) дан...

ПОМОГИТЕ ПОЖАЛУЙСТА)) дан исходный текст. проверить является ли он перевертышем. ( читается туда и обратно одинаково, например КОМОК). x- исходныйтекст, у- текст в обратном порядке. Вывести на кран, "является перевертышем" или "не является перевертышем".

 

var
  s:string;

{функция проверки на палиндром}
function palind(s:string):boolean;
var
  i:integer;
  fl:boolean;
begin
  fl:=true;
  for i:=1 to length(s) div 2 do
    if s<>s[length(s)-i+1] then
      fl:=false;
  Result:=fl
end;

{основная программа}
begin
  writeln('Введите строку...');
  readln(s);
  if palind(s) then
    writeln('Данная строка является палиндромом!')
  else
    writeln('Данная строка НЕ является палиндромом!')
end.

Без функции:
var
s:string;
i:integer;
palin:boolean;
{основная программа}
begin
  writeln('Введите строку...');
  readln(s);
fl:=true;
  for i:=1 to length(s) div 2 do
    if s<>s[length(s)-i+1] then
      fl:=false;
if palin then
    writeln('Данная строка является палиндромом!')
else
    writeln('Данная строка НЕ является палиндромом!')
end.