Работа с типизированными файлами

[Zalmancheg]

Даны 2 типизированных файла, в одном записи: ФИО и Дата рождения, в другом: записи Дата принятия на работу и Специализация. Необходимо объединить из в 3-ем типизированном файле.
Вот собственно мой код:

uses crt;
type info=record
     fio:string;
     dateborn:string;
     datework:string;
     spec:string;
end;
var f1:file of info;
    f2:file of info;
    f3:file of info;
    file1,file2,file3:info;
    i,c:byte;

begin
clrscr;
 assign(f1, 'c:\f1.txt');
 assign(f2, 'c:\f2.txt');
 assign(f3, 'c:\f3.txt');
 reset(f1);
 reset(f2);
 reset(f3);
 while not(eof(f1)) do begin
  read(f1, file1);
  write(f3, file1);
 end;
 while not(eof(f2)) do begin
  read(f2, file2);
  write(f3,file2);
 end;
 close(f1);
 close(f2);
 close(f3);
end.

Но у меня получается при объединении так, что записи из двух файлов как бы не зависимы, т.е. сохраняются ввиде, например:
---------------------------------
Вася 19.03.96
Петя 20.09.87
23.09.43 Слесарь
31.09.43 Монтажник
------------------------------------------
А надо:
--------------------------
Вася 19.03.96 23.09.43 Слесарь
Петя 20.09.87 31.09.43 Монтажник
------------------------------
Помогите разобраться.

[Serge_Bliznykov]

1-я ошибка - А зачем Вы выходной файл открываете на чтение?!
Вы же туда писать собираетесь?

 reset(f3);

надо:

rewrite(f3);

2-е. для того, что "собрать" запись из двух файлов, нужно их читать в одном цикле:

while not(eof(f1)) do begin
  read(f1, file1);
  if not eof(f2) then begin
       Read(f2,file2);
       {перенесём нужные поля из второй записи в первую запись}
       file1.datework := file2.datework; 
       file1.spec := file2.spec; 

       {запишем результат в третий файл}
      write(f3, file1);
  end
  else WriteLn('Второй файл закончился раньше первого! Ошибка!');
 end;

[Zalmancheg]

Спасибо огромное))я б не допер...