Lze v pascalu používat array of records; naplnit pole záznamy?
Při kompilování mi Freepascal při použití příkazu "with" hodí chybu 32,11:expression type must be class or record type.
program trida;
uses crt;
const max=50;
type Tzak=record
jmeno:string[20];
prijmeni:string[20];
vyska:integer;
vaha:integer;
end;
Tzaci=array[1..max] of Tzak;
var zak:Tzak;
zaci:Tzaci;
pocet,volba:integer;
procedure nacti;
begin
with zak do
begin
write('Zadejte jmeno');
readln(jmeno);
write('Zadejte prijmeni');
readln(prijmeni);
write('Zadejte vyska');
readln(vyska);
write('Zadejte vaha');
readln(vaha);
end;
end;
procedure vypis(var zaci:Tzaci);
var ktery:integer;
begin
with zaci do
for ktery:=1 to pocet do
with zaci[ktery] do
writeln(jmeno,' ',prijmeni,' ',vyska,' ',vaha);
end;
begin
repeat
write('Zadejte volbu');
readln(volba);
case volba of
1:begin
nacti;
pocet:=pocet+1;
end;
2:vypis(zaci);
end;
until volba=0;
end.
btw. vím jak je otravné kontrolovat cizí domácí úkoly, ale i přesto děkuji za odpověď.