работа с текстом

[vadimc]

Даны целое число К и текстовый файл.Удалит из файла абзац с номером К(абзацы отделяются друг от друга одной или несколькими пустыми строками). пустые строки,предшествующие и следующие за удаленным абзацом ,не удаляются.

[Stilet]

Предположу что так:

var q,w:textfile;k:integer;s:string;b:boolean;
begin
 k:=5;
 assignfile(q,'q');reset(q);
 assignfile(w,'w');rewrite(w);
 while not eof(q) do begin
  readln(q,s);
  if k<>0 then begin
   writeln(w,s);
  end;
  if s='' then dec(k);
 end;
 closefile(q);closefile(w);
end.