Дан текстовый файл, содержащий cтроки.

const
  Fn = 'file.txt';
  (*Пускай строка считается короткой, если в ней не более 5 символов.*)
  L = 5;
var
  F : Text;
  S : String;
  i, j, Len : Integer;
  Fl : Boolean;
begin
  Writeln('Обработка файла: ', Fn);
  AssignFile(F, Fn);
  Reset(F);
  if Eof(F) then Writeln('Файл пуст.');
  while not Eof(F) do begin
    Readln(F, S);
    Len := Length(S);
    if Len <= L then Writeln('Короткая строка: "', S, '"');
    Fl := True;
    for j := 1 to Len div 2 do begin
      if S[j] <> S[Len - j + 1] then begin
        Fl := False;
        Break;
      end;
    end;
    if Fl then Writeln('Симметричная строка: "', S, '"');
  end;
  Close(F);
  Readln;
end.

Program by_Goodvin1709;
const
n=5; {Длина стоки}
var
f:Text;
str:String;
j,i:Integer;
begin
assign(f,'C:\text.txt');
reset(f);
While Eof(f) do
begin
Readln(f,str);
For j:=1 to length(str) do
begin
if length(str)<n then writeln('Короткая стока: ',str);
if str[1]=Str[length(str)] then 
writeln('Симетричная строка: ',str);
end;
end;
Close(f);
end.