program testRecord; uses wincrt;
type
   windType = record
                 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(wind)
end.