Ребята, это безотлагательно! Составить программку, которая определяет является ли введенное слово

ТАК,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,

Var
  s : string;
  i : integer;
  f : boolean;
begin
  readln (s);
  writeln ('Здесь ', length (s), ' символов');
  f := true;
for i := 1 to length (s) div 2 do
    if s[i] lt;gt; s[length (s) - i + 1] then f := false;
  writeln ('Это слово является перевертышем: ', f); //True/False
end.//пишет правда либо ересь