[1] Comentário enviado por doradu em 09/02/2010 - 16:40h:

seu código fonte não compila pq vc esquece da biblioteca 'crt'

ai vai o código compilando, sem bug

Program registro03;

uses crt;

Type registro = Record
nome:string[30];
nota:array [1..4] of integer;
End;

Var
reg:registro;
contador:integer;

Begin
clrscr;

Write('Informe o nome do aluno: ');
readln(reg.nome);

For contador := 1 to 4 do
Begin
Write('Informe a nota ',contador,': ');
readln(reg.nota[contador]);
End;

Writeln;

Writeln('As notas informadas do aluno',reg.nome,' são:');

For contador :=1 to 4 do
Writeln('Nota ',contador,'= ', reg.nota[contador]);

Readkey;
End.