Файл: Записать в файл самую длинную и самую короткую строку из исходного файла. - Turbo Pascal

var
  i,c: integer;
  f: text;
  s,min,max: string;
begin
  write('c = '); readln(c);
  assign(f,'1.txt');
  rewrite(f);
  for i:=1 to c do begin
    write('Str ',i,': '); readln(s);
    writeln(f,s);
  end;
  close(f);
  reset(f);
  readln(f,min);
  max:=min;
  while not eof(f) do begin
    readln(f,s);
    if length(s)>length(max) then 
      max:=s;
    if length(s)<length(min) then
      min:=s;
  end;
  close(f);
  assign(f,'2.txt');
  rewrite(f);
  writeln(f,max);
  writeln(f,min);
  close(f);
end.