Найти в массиве строк предложение с максимально длинным словом

program kkk;
 
const marks: set of char = ['.', '!', '?', '''', '"'];
      inter: set of char = [',', '-'];
      crlf: set of char = [char(13), char(10)];
      mi = 255;
 
var t: array [0..mi] of string;
    w, s: string;
    c: char;
    i, j, n, m: integer;
    f: file of char;
 
begin
  assign(f, 'c:\mm.txt');
  reset(f);
  n := 0;
  j := 0;
  s := '';
  while not(eof(f)) or (n > mi) do
    begin
      read(f, c);
      if (j = 0) and ((c = ' ') or (c in marks)) then continue;
      if c in crlf
        then s := s + ' '
        else s := s + c;
      inc(j);
      if c in marks then
        begin
          j := 0;
          while pos('  ', s) > 0 do delete(s, pos('  ', s), 1);
          while s[1] = ' ' do delete(s, 1, 1);
          //writeln(n, ' ', s);
          t[n] := s;
          s := '';
          inc(n)
        end;
    end;
  close(f);
  m := 0;
  for i := 0 to n - 1 do
    begin
      s  := t[i];
      for j := length(s) downto 1 do
        begin
          if (j < length(s)) and (s[j] = '-') and (s[j + 1] <> ' ') then continue;
          if (s[j] in marks) or (s[j] in inter) then delete(s, j, 1)
        end;
      while pos('  ', s) > 0 do delete(s, pos('  ', s), 1);
      while s[1] = ' ' do delete(s, 1, 1);
      if s[length(s)] <> ' ' then s := s + ' ';
      //writeln(i, ' ', s);
      while length(s) > 0 do
        begin
          w := copy(s, 1, pos(' ', s));
          delete(s, 1, pos(' ', s));
          if length(w) > m then m := i
        end;
    end;
  writeln('Sentence with longest word:');
  writeln(t[m]);
  readln;
end.

program kkk;
 
const marks: set of char = ['.', '!', '?', '''', '"'];
      inter: set of char = [',', '-'];
 
var s, s1, s2: string;
    i, k, m: integer;
 
begin
  m := 0;
  writeln('Enter strings, blank string to interrupt.');
  repeat
    readln(s);
    s := s + ' ';
    s2 := s;
    if length(s) > 0 then for i := length(s) downto 1 do
      begin
        if (i < length(s)) and (s[i] = '-') and (s[i + 1] <> ' ') then continue;
        if (s[i] in marks) or (s[i] in inter) then delete(s, i, 1)
      end;
    while pos('  ', s) > 0 do delete(s, pos('  ', s), 1);
    if (length(s) > 0) and (s[length(s)] <> ' ') then s := s + ' ';
    while length(s) > 0 do
      begin
        k := pos(' ', s);
        delete(s, 1, pos(' ', s));
        if k > m then
          begin
            s1 := s2;
            m := k
          end
      end
  until s2 = ' ';
  writeln('Sentence with longest word:');
  writeln(s1);
  readln;
end.