problema com manipulação de arquivos

[LAB]

tenho que fazer dois programa um que cadastre as notas e faltas e gere dois arquivos .Dat, e outro que leia esses dois arquivos >dat e compare as os dois e gere outro .Txt. Fiz o primeiro mas so ta cadastrando no q1.

program notas;

    uses crt;

    type
      tipoIN = record
      nome : String[15];
      nota1: real;
      nota2: real;
      faltas : byte;
    end;

     type
       tipo2 = record
       nome : String[15];
       nota1 : real;
       nota2 : real;
       faltas : byte;
     end;

      var
       Arq1: file of tipoIN;
       Arq2: file of tipo2;
       aluno: tipoIN;
       aluno2: tipo2;
       i:integer;

    begin
    ClrScr;
     assign ( Arq1,'Q1.DAT');
     rewrite (Arq1);
     assign ( Arq2, 'Q2.DAT');
     rewrite (Arq2);
     i:=0;
     with aluno do
      begin
      repeat
          i:=i+1;
          writeln('Nome do aluno  ');
          readln(nome[i]);
          writeln('insira a primeira nota   ');
          readln(nota1);
          writeln('insira a segunda nota   ');
          readln(nota2);
          writeln('insira o numero de faltas   ');
          readln(faltas);
          write(Arq1, aluno);
      until i=2;
        end;
        with aluno do
        begin
       repeat
          i:=i+1;
          writeln('Nome do aluno  ');
          readln(nome);
          writeln('insira a primeira nota   ');
          readln(nota1);
          writeln('insira a segunda nota   ');
          readln(nota2);
          writeln('insira o numero de faltas   ');
          readln(faltas);
          write(Arq2, aluno2);
       until i=2 ;

      end;
      close(Arq1);
      close(Arq2);

      Readkey;

      end.