Паскаль. Строки.

[Margosham-k]

Дан текст. Между соседними словами - не менее одного пробела, за последним словом - точка. Удалить слово с заданным номером.Результат вывести на экран и в текстовый файл.
Помогите решить задачку..очень срочно нужно(((

[Noor]

Покажите, что Вы сами уже успели предпринять для решения данного задания?

[TinMan]

Сообщение от Noor

что Вы сами уже успели предпринять для решения данного задания?

Они успели запостить на этот форум (а может, не только на этот)). Ты че, Noor? не видишь что ли? очень срочно нужно! Кто ж будет решать, если срочно нужно??

Эй, Маргоша, лови топор..

var
  s: string= '     one two   three four five     six ';
  n: integer= 6;
  f: text;
begin
  writeln(s);
  Assign(f,'out.txt');
  ReWrite(f);
  while Length(s)>0 do begin
    while (Length(s)>0) and (s[1]=' ') do begin
      Delete(s,1,1);
      write(' ');
      write(f,' ')
    end;
    if length(s)>0 then begin
      dec(n);
      while (Length(s)>0) and (s[1]<>' ') do begin
        if n<>0 then begin
          write(s[1]);
          write(f,s[1])
        end;
        Delete(s,1,1)
      end
    end
  end;
  Close(f);
  readln
end.

Ну, че молчишь? поймала чтоль? ))