Лабы / 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.