program testRecord; uses wincrt;
type
   windType : record
              begin
                  snelheid: byte;
                  richting: array [1.3] of char
              end;
var
   wind: windType;
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
   wind[snelheid]:=20;
   wind.richting:='ZZW';

   print(windType)
end.