[The Shadow]

Не знаю почему так получилось

Код:

var
  i: Integer;
  f: Array of String;
  tmp: String;
begin
  AssignFile(Input, 'f.txt');
  Reset(Input);
  while not Eof(Input) do
  begin
    Readln(Input, tmp);
    if (Pos('САША', AnsiUpperCase(tmp)) <> 0) or (Pos('НАТАША', AnsiUpperCase(tmp)) <> 0) then
    begin
      SetLength(f, Length(f) + 1);
      f[High(f)]:=tmp;
    end;
  end;
  CloseFile(Input);
  Rewrite(Input);
  for i:=0 to Length(f) - 1 do
  Writeln(Input, f[i]);
  CloseFile(Input);
end;

Проверил, работает.