[Resolvido] Array

[DSR 0]

Pessoal, gostaria de saber se neste caso que eu não sei quantos cadastro de contas bancárias vai ser feita e quantos estudantes vão se cadastrar, eu posso usar duas arrays tipo assim:

contas_banc: Array [1..N] OF real;

reg_contas: Array [1..Z] OF cadastro;

o que eu faço?

Fiz o programa abaixo e não copila:

Elabore um programa que realize o cadastro de contas bancárias de estudantes com as seguintes informações:

• número da conta;

• nome do aluno/cliente;

• saldo.

Program conta_corrente;
const
N = 3;
Z = 3; 
Type cadastro = Record 
nome : String[60]; 
num_conta : integer;
saldo : real;
contas_banc: Array [1..N] OF real;
 
End; 
Var reg_contas: Array [1..Z] OF cadastro;
i,j : integer;
Begin
clrscr;
for i:=1 to Z do
begin
WRITE(' Digite o numero da conta do ',i, ' º Estudante: ‘);
Readln(reg_contas[i].num_conta);
WRITE(' Digite o nome do ',i, ' º Estudante: ‘);
Readln(reg_contas[i].nome);
WRITE(' Digite o Saldo da conta do ',i, ' º Estudante: ‘);
Readln(reg_contas[i].saldo);
 for j:= 1 to N do
Begin
WRITE(‘Digite a ', j, ' ª conta do ',i,' º Estudante: ’);
READLN(reg_contas[i].contas_banc[j]);
end;
END;
FOR i:=1 TO Z DO
BEGIN
WRITELN('Contas Bancárias .............: ');
WRITELN('N° da Conta .............: ', reg_contas[i].contas_banc[N]);
WRITELN('Nome do Cliente .........: ', reg_contas[i].contas_banc[N]);
WRITELN('Saldo ...................: ', reg_contas[i].contas_banc[N]);
end;
End.

[DSR 0]

Descobri o erro é que não usei a Biblioteca wincrt; agora copilou!