[The Shadow]

Код:

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;