{Dit programma staat niet in het boek.
 Dit programma test de structuur die in paragraaf 7.10 besproken wordt.}
program testArrayRecord; uses wincrt;
type
	windType = record
	              snelheid: byte;
	              richting: array[1..3] of char
	           end;
   weerType = record
                 temperatuur: byte;
                 wind: windType;
              end;
   dagWeerType = array[0..23] of weerType;
var
	dagWeer: dagWeerType;
begin
   dagWeer[12].temperatuur:=18;
   dagWeer[12].wind.snelheid:=20;
   dagWeer[12].wind.richting:='ZZW';

   writeln('De wind kwam om 12:00 uit de richting ', dagWeer[12].wind.richting[1])
end.