Подпрограмма, удаляющая из строки слово с номером М (М передавать как параметер)

[Наталия_01]

Всем привет! Надеюсь, что получу помощь=))
Мне нужно написать подпрограмму, удаляющую из строки слово с номером М (М вводить в диалоге и включить в список параметров процедуры).
Новые строки записать в файл F2.
Пожалуйста помогите кто-нибудь!!!!!!


Экзамен завтра. боюююсь


_________
Название темы должно адекватно отражать суть решаемой задачи/проблемы.
На первый раз я исправил.
В дальнейшем темы с подобным названием будут закрываться/удаляться.

Модератор.

[GetMax]

Мне нужно написать подпрограмму, удаляющую из строки слово с номером М

Разбирайтесь

Procedure Del(Sl:String;Numb:Byte);
Var
  i,count,j,p:Byte;
Begin
  Sl:=' '+Sl+' ';
  count:=0;
  i:=1;
  While (Count < Numb) and (i <=Length(Sl)) do
  Begin
    If Sl[i] = ' ' then
    Begin
      j:=i;
      Inc(count)
    End;
    Inc(i)
  End;
  count:=0;
  i:=1;
  While (count < numb+1) and (i <=Length(Sl)) do
  Begin
    If Sl[i] = ' ' then
    Begin
      p:=i;
      inc(count)
    End;
    Inc(i)
  End;
  If count < numb+1 then Writeln('Stolko clov zdes net')
  Else
  Begin
    Delete(Sl,j,p-j);
    Delete(Sl,1,1);
    Delete(sl,Length(sl),1);
    Writeln(sl)
  End;
End;