Вопрос по файлам

[Cstln]

Здравствуйте!
Моя программа записывает в первый файл с заданное позиции заданное кол-во записей из второго. В ABC.Pascal всё работает, но в Борланд совершенно непонятно почему всё вылетает. Если закомментировать части кода, выделенные жирным, то не вылетает.

Не подскажите, в чём ошибка?

program PROGR2;
uses crt;
const n=5; {В каждом файле изначально 5 записей}
type
    Record1=record
          name:string[20];
          year:integer;
          number:integer;
    end;
var
        f1,f2,f3:file of Record1;
        i:integer;
        t:Record1;
        
        pos:integer;
        num:integer;

begin
clrscr;


assign(f1,'RECORD1.TXT');
assign(f2,'RECORD2.TXT');

reset(f1); {Вывод на экран первоначального содержимого обоих файлов}
writeln('Table 1');
for i:=1 to n do
    begin
    read(f1,t);
    writeln(i,' || ',t.name:10,' | ',t.year,' | ',t.number,' |');
    end;
writeln('_____________________________');
writeln;
close(f1);

reset(f2);
writeln('Table 2');
for i:=1 to n do
    begin
    read(f2,t);
    writeln(i,' || ',t.name:10,' | ',t.year,' | ',t.number,' |');
    end;
writeln('_____________________________');
close(f2);

readln;
clrscr;

reset(f1);
reset(f2);

writeln('Position');  {Вод позиции, с которой начинается запись, и количества перемещаемых элементов}
readln(pos);
writeln('Number of records');
readln(num);

assign(f3,'z.txt'); {Ввожу вспомогательный файл f3}
rewrite(f3);

if pos>1 then {Сначала записываю в f3 элементы f1 до нужно позиции}
  begin
    for i:=0 to pos-2 do
        begin
        read(f1,t);
        write(f3,t);
        end
  end;
 
  
for i:=1 to num do {Переношу в f3 из f2}
  begin
  read(f2,t);
  write(f3,t);
  end;
  
while not eof(f1) do {Переношу остатки из f1}
  begin
  read(f1,t);
  write(f3,t);
  end;


close(f2);
close(f1);  
close(f3);

erase(f1); {Заменяю f3 на f1}
rename(f3,'RECORD1.TXT');


  


readln;
clrscr;


assign(f1,'RECORD1.TXT'); {Снова вывожу содержимое на запись}
assign(f2,'RECORD2.TXT');

reset(f1);
writeln('Table 1');
for i:=1 to n do
    begin
    read(f1,t);
    writeln(i,' || ',t.name:10,' | ',t.year,' | ',t.number,' |');
    end;
writeln('_____________________________');
writeln;
close(f1);

reset(f2);
writeln('Table 2');
for i:=1 to n do
    begin
    read(f2,t);
    writeln(i,' || ',t.name:10,' | ',t.year,' | ',t.number,' |');
    end;
writeln('_____________________________');
close(f2);



readln;
end.