@Math.Pi.
Código:
Program Pzim ;
var fil : array[1..1] of record
cod : integer;
nome,status : string;
genero : char;
valor , quant: real;
end;
i : integer;
Begin
for i:= 1 to 1 do
begin
write (' escreva o codigo do produto: ');
read (fil[i].cod);
write (' escreva a quntidade do produto: ');
read (fil[i].quant);
write (' escreva seu nome do produto: ');
read (fil[i].nome);
write (' escreva o valor do produto: ');
read (fil[i].valor);
write (' escreva sua status do produto: ');
read (fil[i].status);
end;
writeln;
for i:= 1 to 1 do
begin
writeln ('codigo: ',fil[i].cod);
writeln ('nome: ', fil[i].nome);
writeln ('valor : ', fil[i].valor);
writeln ('quant: ',fil[i].quant);
writeln ('status: ',fil[i].status);
end;
readln;
End.
Foi o que consegui fazer.