Заменить строку в текстовом файле

var f:text;
i,n:integer;
s:string;
begin
assign(f,'txt.txt');
reset(f);
readln(n);
 for i:=1 to n do readln(f,s);
 writeln(s);
 
close(f);
readln
end.

var f,f2:text;
i,n:integer;
s,s1:string;
begin
assign(f,'txt.txt');
reset(f);
readln(n);
 for i:=1 to n do readln(f,s);
 writeln(s);
 readln(s1);
 Assign (f2,'vivod.txt');
       rewrite (f2);
       i:=0;
        while not eof (f) do
         begin
          inc(i);
          readln(f,s);
          if i<>n then writeln (f2,s);
          if i=n then writeln(f2,s1);
         end;
     close (f);
     close (f2);
    erase(f);
     rename (f2, 'txt.txt');
 
readln
end.

var f,f2:text;
  i,n:integer;
  s:string;
begin
  assign(f,'txt.txt');
  reset(f);
  WriteLn('Введите номер строки для замены: ');
  readln(n);
  Assign (f2,'temp$$$$.txt');
  rewrite (f2);
  i:=0;
  while not eof(f) do begin  
     inc(i);
     readln(f,s);
     if i<>n then
        writeln(f2,s)
     else {нашлась строка с номером N} 
       begin
         WriteLn('Строка с номером ',N,':', s);
         WriteLn('введите новую строку (для замены): ');
         readln(s);
         writeln(f2,s);
       end;
     close (f);
     close (f2);
     erase(f);
     rename (f2, 'txt.txt');
     readln
end.