Текстовый файл: заменить в файле строки, стоящие на четных местах, строками, вводимыми с клавиатуры

program p;
uses crt;
var file1,  rez: file of char;
const name1='file1.txt';
      name='rezult.txt';
      k=20;
 
procedure InputFile(name:string;  k: integer);
 
var   f: file of char; s: char; n: integer;
begin
assign(f, name);
rewrite(f);
randomize;
for n:=1 to k do
    begin
    s:=chr(random(200)+50);
    write(f, s);
    end;
close(f);
end;
 
procedure main(name1, name: string);
var s: char; n : integer;
    var  f,  rez: file of char   ;
begin
assign(rez, name);
assign(f, name1);
rewrite(rez);
reset(f);
while not eof(f) do
      begin
      read(f, s);
      write(rez, s);
      read(f,s);
      end;
close(f);
close(rez);
 
end;
 
procedure PrintFile(name: string);
var s: char;
    f: file of char;
begin
assign(f, name);
reset(f);
while not eof(f) do
      begin
      read(f, s);
      write(s);
      end;
writeln;
end;
 
 
begin
InputFile(name1, 2*k);
PrintFile(name1);
main(name1, name);
PrintFile(name);
end.

const name='file1.txt';
      name1='rezult.txt';
      k=4;//для тестирования программы
procedure InputFile(var f:text);
var s:string;
begin
assign(f, name);
rewrite(f);
writeln('Введите в файл ',k,' строк');
for var i:=1 to k do
 begin
  readln(s);
  writeln(f,s);
 end;
close(f);
end;
 
procedure main(var f:text);
var s,s1:string;
    n : integer;
    g:text;
begin
assign(f,name);
reset(f);
assign(g,name1);
rewrite(g);
n:=0;
while not eof(f) do
 begin
  readln(f, s);
  inc(n);
  if odd(n) then writeln(g,s)
  else
   begin
    writeln('Введите строку');
    readln(s1);
    writeln(g,s1)
   end;
  if eof(f)then 
   begin 
    writeln('Редактирование файла завершено!') ;
    writeln('Press Enter');
    readln;
    exit;
   end; 
 end;  
close(f);
close(g);
erase(f);
rename(g,name);
end;
var f,g:text;
begin
InputFile(f);
main(f);
end.