Erro no Pascal

[alverne]

Olá galera não estou conseguindo entender o erro deste programa em pascal

A seguir o código:

program ARQUIVO_EXERCICIO02;
uses crt;
Type
    REGISTRO = record
             NOME : string[20];
             FONE : string[8];
    end;
Const N = 10;
Var
   AGENDA : file of REGISTRO;
   REG : REGISTRO;
   I : Integer;
begin
     clrscr;
     assign(AGENDA,'c:\arquivos\AGENDA.cpr');
     reset(AGENDA);
     for i := 1 to N do
         begin
[B][COLOR="Red"]              read(AGENDA,reg);[/COLOR][/B]
              with REG do
                  writeln(NOME,' ',FONE);
         end;
     close(AGENDA);
     readkey;
end.

O erro é o seguinte Error 100: Disk read error.

Na linha em destaque. Alguém saberia qual o erro? O arquivo que deve ser aberto existe! Aguardo retorno?

[viniciusbmatos]

Aqui compilou normalmente, mas o programa fecha muito rapidamente antes de aparecer alguma coisa.