Запись в файл часть содержащей наибольшее количество пробелов

var
  f,g :text;
  temp :string;
  max, i, j, k, l, sum, str :integer;
  a:array[1..10] of string;
  begin
    assign(f,'input.txt');
    assign(g, 'output.txt');
    reset(f);
    rewrite(g);
    max:=0;
    sum:=0;
    //выполняем до тех пор пока не закончится файл
    while not EOF(f) do
    begin
      readln(f,temp); //читаем строку
      l:=length(temp); //читаем длинну строки
      k:=0;
      //перебираем посимвольно строку и считаем пробелы
      for i:=1 to l do
        begin
          if temp[i]=' ' then k:=k+1;
        end;
        if k > sum then
          begin 
          sum:=k; 
          str:=max;
          end;
      inc(max);//увеличиваем массив на 1 элемент
      a[max]:=temp//присваиваем новому значение строки
    end;
    //переписываем с массива в выходной файл
    for i:=str to max do
    begin
      temp:=a[str+1];
      for j:=1 to length(temp) do
        write(g, temp[j]);
        writeln(g);
        str:=str+1;
    end;
    close(f);
    close(g);
  end.

 for i:=1 to Length(temp) do

  Reset(f); {n:=0;}
  while not EoF(f) do begin
    ReadLn(f,s); Inc(n); k:=0; 
    for i:=1 to Length(s) do if s[i]=' ' then Inc(k);
    if mk<k then begin
      mk:=k; mn:=n;
    end;
  end;
  Reset(f); Rewrite(g);
  for n:=n-1 downto 0 do ReadLn(f,s);
  while not EoF(f) do begin
    ReadLn(f,s); WriteLn(g,s);
  end;
  Close(g); Close(f);