Удалить из файла абзац с номером К(абзацы отделяются друг от друга одной или несколькими пустыми строками

[Ragnaradi]

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

Спасибо.

[lACl]

стучись в аську 367244151 - поможем. Но - за деньги.

[Ragnaradi]

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

стучись в аську 367244151 - поможем. Но - за деньги.

Не получится. В инете денег не держу, а разбиратся времени нету, завтра сдавать уже...

[AVer]

Ок. Одна задача - на форуме святое. Жди. Скоро напишу.

[lACl]

Смотри :-) удачи со сдачей;-) кстати, если будет когда-нить нужна помощь - просто напиши в аську. Я работаю в фирме, которая занимается программированием под заказ. А как быстро оплать - научим ;-)

[AVer]

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

Смотри :-) удачи со сдачей;-) кстати, если будет когда-нить нужна помощь - просто напиши в аську. Я работаю в фирме, которая занимается программированием под заказ. А как быстро оплать - научим ;-)

Я тоже работаю в фирме, которая занимается программированием под заказ. Называется AVer & AVer Так что если каму то в этом мире потребуется ПО - обязательно напишите мне!

ИМХО - Реклама на форуме.

[Virtson]

помогаю за умеренную плату !
выполняю и серьезные проекты.

иначе мне нечем будет платить за инет ...

[Virtson]

по задаче :
N:= 1
читаем строки,
если пустая - увеличиваем N
если N = K - следующие строки абзаца (до пустой) нам не нужны
остальные - переписываем.

[переписываем в другой файл,
либо ведем динамический массив строк]

частный случай
если N=1 - в решение для него нужен еще один if ..

[AVer]

Сорри за опоздание! Решение написал еще вчера да вот выложить не смог - инет слетел. Вот код:

var F,R:Text;
    I,N,K:Integer;
    S,FName:String;
    B:Boolean;

Function AbzCount:Integer;
Begin
Assign(F,FName);
Reset(F);
ReadLn(F,S);
If S = '' Then
Begin
N:=0;
B:=False;
End Else
Begin
N:=1;
B:=True;
End;
repeat
ReadLn(F,S);
if S = ''Then B:=False Else
Begin
If B = False Then
Inc(N);
B:=True;
End;
until EoF(F);
AbzCount:=N;
End;

Begin
Write('FileName: ');
ReadLn(FName);
Write('Abzac N: ');
ReadLn(K);
If K > AbzCount Then
WriteLn('Takogo abzaca net') Else
 Begin
 Write('FileName 2: ');
 ReadLn(S);
 Assign(R,S);
 ReSet(F);
 ReWrite(R);
 ReadLn(F,S);
 If S = '' Then
 Begin
 N:=0;
 B:=False;
 End Else
 Begin
 N:=1;
 B:=True;
 If K <> 1 Then
 WriteLn(R,S);
 End;
 repeat
 ReadLn(F,S);
 if S = ''Then B:=False Else
 Begin
 If B = False Then
 Inc(N);
 B:=True;
 End;
 If N <> K Then
 WriteLn(R,S) Else
 If S = '' Then
 WriteLn(R,S);
 until EoF(F);
 Close(R);
 WriteLn('Rezultat soxranen');
 End;
ReadLn;
End.

[Ragnaradi]

А можно в кратце поиснить что здесь про что...и как ее вообще запускать?