Код:
var
i: Integer;
F: Array of String;
Tmp: String;
DoCopy: Boolean;
begin
DoCopy:=False;
AssignFile(Input, 'f.txt');
Reset(Input);
while not Eof(Input) do
begin
Readln(Input, Tmp);
if Pos('САША', AnsiUpperCase(Tmp)) <> 0 then
DoCopy:=True;
if DoCopy then
begin
SetLength(F, Length(f) + 1);
F[High(F)]:=Tmp;
end;
if Pos('НАТАША', AnsiUpperCase(Tmp)) <> 0 then
DoCopy:=False;
end;
CloseFile(Input);
Rewrite(Input);
for i:=0 to Length(F) - 1 do
Writeln(Input, F[i]);
CloseFile(Input);
end;
__________________
Что делать, когда сломался комп:
1. Если вы юзер - делать ноги.
2. Если ремонтник - делать деньги.
3. Если вы программист - делать вид, что так было задумано.
|