Паскаль ABC: Процедуры и функции. Вывод самого длинного слова в строке / тексте

Program Lab (Input, Output);
const
  DefaultDelims = [#0..#127]-['0'..'9','A'..'Z','a'..'z'];
  Delims: set of Char = DefaultDelims;
  Var
  s, w: string;
  p, i, j: integer;
  f: text;
begin
  i:=p; 
  while (i<=Length(s)) and (s[i] in Delims) do Inc(i);
  j:=i; 
  while (i<=Length(s)) and not (s[i] in Delims) do Inc(i);
  if i > j then
  w:=Copy(s,j,i-j); 
  p:=i;
  Assign(f,'file1.txt');
  Write('Текст: '); ReadLn(s); p:=1;
  Write('Слова длиннее 9 символов:');
  Rewrite(f);
  if Length(w)>9 then begin
    Write(' ',w); WriteLn(f,w);
  end; 
  WriteLn;
  Close(f);
end.

const
  Delims = [#0..#127]-['0'..'9','A'..'Z','a'..'z'];
var
  s, w: String;
  i, j: Integer;
  f: Text;
begin
  Assign(f,'file1.txt');
  Write('Текст: '); ReadLn(s); i:=1;
  Write('Слова длиннее 9 символов:');
  Rewrite(f);
  repeat
    while (i<=Length(s)) and (s[i] in Delims) do Inc(i);
    j:=i; 
    while (i<=Length(s)) and not (s[i] in Delims) do Inc(i);
    if i=j then Break;
    if i-j>9 then begin
      w:=Copy(s,j,i-j); Write(' ',w); WriteLn(f,w);
    end;
  until False;
  WriteLn;
  Close(f);
end.