Var
 f,f1:text;
 S:String;
 i,N,Num:Word;
Begin
 Assign(f,'text.txt');
 Reset(f);
 N:=0;
 Repeat
  Readln(f,S);
  Inc(N);
 Until EoF(f);
 Write('File contains ',N,' lines. Which one should be deleted? ');
 Readln(Num);
 Reset(f);
 Assign(f1,'xxx.txt');
 Rewrite(f1);
 For i:=1 to Num-1 do
  begin
   Readln(f,S);
   Writeln(f1,S);
  end;
 Readln(f,S);
 For i:=Num+1 to N do
  begin
   Readln(f,S);
   Writeln(f1,S);
  end;
 Close(f);
 Close(f1);
 Reset(f1);
 Rewrite(f);
 For i:=1 to N-1 do
  begin
   Readln(f1,S);
   Writeln(f,S);
  end;
 Close(f);
 Close(f1);
 Erase(f1);
End.