Преобразовать код без функции в код с функцией

PROGRAM TEST (INPUT, OUTPUT);
var
  S, t: string;
  var g:array[1..10000] of string;
  i, j, n, count: integer;
  b: boolean;
  f1:text;
  begin
  assign(f1,'C:\DOC\DOC.TXT' );
  writeln('Enter text:');
  readln(S);
  SetLength(S, Length(S) + 1); 
  n := Length(S); 
  i := 0; 
  count := 0; 
  while i < n do
  begin
    t := ''; 
    b := false; 
    inc(i); 
    while (s[i] <> ' ')and(i< n)and(s[i] <> '.') do
    begin
      t := t + s[i]; 
      inc(i); 
      b := true 
    end;
    if b then 
    begin 
      inc(j); 
      if Length(t) > 9 then begin inc(count); g[count] := t end
    end;
    end;
   writeln;
  write('Words that is bigger than 9 symbols:');
  if count > 0 then 
    for i := 1 to count do 
    begin
    write(' ', g[i]);
   rewrite(f1);
  writeln(f1,g);
  close(f1);
  end;
  end.

const
  DefaultDelims = [#0..#127]-['0'..'9','A'..'Z','a'..'z'];
  Delims: set of Char = DefaultDelims;
  
function NextWord(const s: String; var w: String; var p: Integer): Boolean;
var i, j: Integer;
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);
  NextWord:=i>j; w:=Copy(s,j,i-j); p:=i;
end;
 
var
  s, w: String;
  p: Integer;
  f: Text;
begin
  Assign(f,'C:\DOC\DOC.TXT');
  Write('Текст: '); ReadLn(s); p:=1;
  Write('Слова длиннее 9 символов:');
  Rewrite(f);
  while NextWord(s,w,p) do if Length(w)>9 then begin
    Write(' ',w); WriteLn(f,w);
  end; WriteLn;
  Close(f);
end.