Postagens
Não informado
boa noite ,
Esta dando erro na ultima linha (esse ésó um pedaço do prog)
program cadastro;
type
crt;
type
cadas = record
codi: integer;
prod: string[20];
unid: integer;
quan: integer;
mini: integer;
maxi: integer;
comp: real;
vend: real;
flag: char;
end;
arqui = file of cadas;
grato desde já
