ПОМОГИТЕ ПОЖАЛУЙСТА)) дан исходный текст. проверить является ли ...

Vasy

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[i]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[i]s[length(s)-i+1] then
      fl:=false;if palin then
    writeln('Данная строка является палиндромом!')
else
    writeln('Данная строка НЕ является палиндромом!')
end.