Помогите организовать текстовый файл, состоящий из n строк ...

[bifshtex]

я практически сделал эту задачу, за исключением одного...

uses crt;
var
f1,f2:text;
s,s2:string;
k,n,i:byte;
begin
clrscr;
writeln('write input file: ');
readln(s);
assign(f1,s);
reset(f1);
k:=0;
while not eof(f1) do
 begin
 readln(f1,s);
 inc(k);
 writeln(s);
 end;
close(f1);
writeln;
reset(f1);
assign(f2,'dop.txt');
rewrite(f2);
write('k= ');
readln(k);
  for i:=1 to k-1 do
  begin
  readln(f1,s);
  writeln(f2,s);
  end;
close(f1);
close(f2);
writeln;
write('vvedite stroku dlya zameni: ');
readln(s2);
append(f2);
writeln(f2,s2);
close(f2);

ЗДЕСЬ НАДО ДОБАВИТЬ К ФАЙЛУ F2 СТРОКИ КОТОРЫЕ ШЛИ В ФАЙЛЕ F1 ПОСЛЕ НОМЕРА СТРОКИ КОТОРУЮ МЫ НЕ БЕРЕМ(К)
ВОТ ЭТА ЧАСТЬ У МЕНЯ И НЕ ПОЛУЧАЕТСЯ...

reset(f2);
while not eof(f2) do
 begin
 readln(f2,s);
 writeln(s);
 end;
close(f2);
readln
end.

[InfStudent]

Ну еще раз тебе говорю посмотри мой код и стр. 2 там твоя задача решена

[InfStudent]

Попробуй в моем коде заменить SysUtils на Crt. а AssignFile на Assign

[bifshtex]

я сделал эту задачу, кстати))

uses crt;
var
f1,f2:text;
str,s,s2:string;
k,n,i:byte;
begin
clrscr;
writeln('write input file: ');
readln(str);
assign(f1,str);
reset(f1);
k:=0;
while not eof(f1) do
 begin
 readln(f1,s);
 inc(k);
 writeln(s);
 end;
close(f1);
writeln;
reset(f1);
assign(f2,'dop.txt');
rewrite(f2);
write('k= ');
readln(k);
  for i:=1 to k-1 do
  begin
  readln(f1,s);
  writeln(f2,s);
  end;

readln(f1,s);

write('vvedite stroku dlya zameni: ');
readln(s2);
writeln(f2,s2);

while not eof(f1) do
 begin
 readln(f1,s);
 writeln(f2,s);
 end;
close(f1);
close(f2);

erase(f1);
rename(f2,str);

assign(f2,str);
writeln('Resultat: ');
reset(f2);
while not eof(f2) do
 begin
 readln(f2,s);
 writeln(s);
 end;
close(f2);
readln
end.