Лабы / Pascal.1.курс / part 2 / var 14 / LAB3

program lab3;
uses crt;
const
  temp='c:\tp\temp.txt';
var
  f,ft:text;
  fname,s:string;
  c:integer;

begin

  clrscr;
  repeat
     write('Enter file name: ');
     readln(fname);
     assign(f,fname);
     {$I-}
     reset(f);
     {$I+}
  until ioresult=0;

  assign(ft,temp);
  rewrite(ft);

  while not eof(f) do begin
    inc(c);
    writeln(c);
    readln(f,s);
    if (c<>1) and (c<>5) and (c<>10) then writeln(ft,s);
  end;

  close(f);
  close(ft);
  erase(f);
  rename(ft,fname);

end.