program testRecord; uses wincrt;
type
   windType = record
                 snelheid: byte;
                 richting: array[1..3] of char
              end;
   weerType = record
                 temperatuur: byte;
                 wind: windType;
              end;
var
   weer: weerType;
procedure print(w: windType);
   var
      i: integer;
   begin
      writeln('De windsnelheid is ', w.snelheid, ' m/s');
      write('De windrichting is ');
      i:=1;
      repeat
         if w.richting[i]='N' then
            write('Noord ')
         else if w.richting[i]='O' then
            write('Oost ')
         else if w.richting[i]='Z' then
            write('Zuid ')
         else if w.richting[i]='W' then
            write('West ');
         i:=i+1
      until i>3;
      writeln
   end;
begin
   weer.temperatuur:=18;
   weer.wind.snelheid:=20;
   weer.wind.richting:='ZZW';

   writeln('De temperatuur is ', weer.temperatuur, ' graden C');
   print(weer.wind)
end.