Описать процедуру, формирующую n-е слово строки

procedure n_wrd(s: string; n: integer; var wrd: string);
var i: integer;
begin
  while (length(s) > 0) and (s[1] = ' ') do delete(s, 1, 1);
  s := s + ' ';
  while pos('  ', s) > 0 do delete(s, pos('  ', s), 1);
  for i := 1 to n - 1 do
    if length(s) > 0
      then delete(s, 1, pos(' ', s))
      else break;
  if length(s) = 0
    then wrd := s
    else wrd := copy(s, 1, pos(' ', s) - 1)
end;
 
var i, j: integer;
    n: array [1..3] of integer;
    s, w: string;
begin
  for i := 1 to 4 do
    begin
      writeln('Enter string #', i, ':');
      readln(s);
      for j := 1 to 3 do
        repeat
          write('n', j, ' = ');
          readln(n[j]);
          if n[j] < 1 then writeln('Number of word may be >= 1, reenter.')
        until n[j] >= 1;
      for j := 1 to 3 do
        begin
          n_wrd(s, n[j], w);
          write('Word #', n[j]);
          if length(w) > 0
            then writeln(': ', w)
            else writeln(' not found.')
        end;
      writeln
    end;
  readln
end.