Задача на палиндромы(работа с текстовыми файлами)

program lb3;
uses crt;
const Lat=['A'..'Z'];
type
  mas = array ['A'..'Z'] of byte;
procedure Task();
 begin
    Writeln(' __________________________________________________________________________________'); 
    Writeln('|В исходном текстовом файле записаны строки, содержащие текст на английском языке.|'); 
    Writeln('|Требуется написать программу, которая для каждой строки исходного файла будет    |'); 
    Writeln('|печатать в результирующий файл слова, являющиеся палиндромами(читающимися в      |');
    Writeln('|прямом и обратном порядке ). Слово, состоящее из одной буквы, также считается.   |'); 
    Writeln('|________________________________________________________________________________ |'); 
 end;
 
function palindrom(s:string):boolean;
var i:integer;pal:boolean;
begin
  for i:=1 to length(s) div 2 do begin
    if s[i]<>s[length(s)-i+1] then
      pal:= false
    else pal:=true;
   palindrom:=pal;
  end;
end;  
Procedure Alg (var f1,f2:text);
var s:string;
begin
  reset (f1);
  rewrite (f2);
  while not EOF (f1) do begin
    readln (f1, s);
    if ((length(s) = 0) or (length(s)=1)) then writeln (f2,s)
    else
      if palindrom(s)=true then
        writeln (f2, s);
    end;
    close (f1);
    close (f2);
end;
      
var f1, f2:text;
fn1, fn2:string;
begin
  Task;
  writeln('Введите имя исходного файла');
  readln (fn1);
  fn1:=fn1+'.txt'; 
  if FileExists(fn1) then begin
    writeln('Введите имя результирующего файла');
    fn2:=fn2+'.txt'; 
    readln (fn2);
    fn2:=fn2+'.txt';
    assign(f1, fn1);
    assign(f2, fn2);
    Alg(f1, f2);
  end
  else writeln('Файл не существует') 
end.