Найти самую длинную из строк и поместить эту стоку в файл

uses crt;
const n=10;
var s:array[1..n] of string;
    f:text;
    nf:string;
    i,imx:byte;
begin
clrscr;
write('Имя файла для записи:  ');
readln(nf);
nf:=nf+'.txt';
assign(f,nf);
rewrite(f);
writeln('Введите ',n,' строк:');
for i:=1 to n do
readln(s[i]);
writeln;
imx:=1;
for i:=1 to n do
if length(s[i])>length(s[imx]) then imx:=i;
writeln(f,s[imx]);
close(f);
writeln('Самая длинная строка:');
writeln(s[imx]);
write('записана в файл ',nf);
readln
end.

Uses crt;
const n=10;
var
   t:text;
   f:array[1..n] of string;
   max,i,imax:integer;
begin
     clrscr;
      for i:=1 to n do
        readln(f[i]);
      for i:=1 to n do
        write(f[i]:length(f[i]),' ');
      max:=length(f[1]);
      for i:=2 to n do
      if length(f[i])>max then
         begin
              max:=length(f[i]);
              imax:=i;
         end;
      writeln(imax);
      assign(t,'cyb.txt');
      rewrite(t);
      write(t,f[imax]);
      close(t);
      readkey;
end.

for i:=1 to n do
        readln(f[i]);
      for i:=1 to n do
        write(f[i]:length(f[i]),' ');//для чего выводить строки, если они и так на экране?
      max:=length(f[1]);//для чего лишняя переменная?
      for i:=2 to n do
      if length(f[i])>max then
         begin
              max:=length(f[i]);
              imax:=i;