Написать программу на Паскале,которая выведет на экран те строки из текстового файла, которые являются палиндромами. Имя файла вводить с клавиатуры.

program proga_25_3;var  A: text;s,p : string; i:integer; f:boolean;begin   write('Введите имя и путь к файлу   ');   read(p);   assign(A, p);   reset(A);   while not eof(A) do    begin         readln(A,s);                  for i:=1 to length(s) div 2 do         if s[i]=s[length(s)-i+1] then           f:=true          else         begin         f:=false;         break;        end;       if f then         writeln (S);    end;    close(A);end.