Используя процедуры, выделить в строке слова и вывести их потом в заданном формате - Turbo Pascal

program LB6;
const
  del=[' ',',','.','!','?','-'];
type
  starray=array[1..50] of string; {массив для записи слов}
var
  s,w,name,prob,n1:string;
  f:text;
  words:starray;
  l,i,n,k,p,code:integer; {l-длина строки, k-количество слов в строке}
 
procedure vydelenie(s:string;l:integer;var k:integer);
const
  del=[' ',',','.','!','?','-'];
var
  w:string;
  i:integer;
{процедура выделяет в строке слова и записывает их в массив}
begin
  k:=0;
  w:='';
  for i:=1 to l do
    begin
      if not (s[i] in del) then
        w:=w+s[i];
      if (not (s[i-1] in del) and (s[i] in del) or (i=l)) then
        begin
          k:=k+1;
          words[k]:=w;
          w:='';
        end;
    end;
end;
 
procedure format(var w:string; n,k:integer);
var
  i,code:integer;
  prob,n1:string;
{prob-промежуточное значение будущей выводимой строки,
n1-число n в виде строковой переменной}
begin
  for i:=1 to k do
    begin
      n:=1;
      while n<=i do
        begin
          str(n,n1);
          prob:=prob+n1+' ';
          val(n1,n,code);
          inc(n);
        end;
      prob:=prob+w;
      words[i]:=prob;
    end;
end;
 
begin
  p:=0;
  while p=0 do
    begin
      write('Введите название файла - ');
      readln(name);
      {$I-}
      assign(f, name);
      reset(f);
      {$I+}
      if IORESULT<>0 then
        writeln('Файл не существует.')
      else
        p:=1;
    end;
  while not Eof(f) do
    begin
      readln(f,s);
      l:=length(s);
      vydelenie(s,l,k);
 
      format(s,k,k);
      for i:=1 to k do
        writeln(words[i]);
 
    end;
  close(f);
  readln;
end.