program testRecord; uses wincrt;
var
   wind: record
            snelheid: byte;
            richting: array[1..3] of char
         end;
   i: integer;
begin
   wind.snelheid:=20;
   wind.richting:='ZZW';

   writeln('De windsnelheid is ', wind.snelheid, ' m/s');
   write('De windrichting is ');
   i:=1;
   repeat
      if wind.richting[i]='N' then
         write('Noord ')
      else if wind.richting[i]='O' then
         write('Oost ')
      else if wind.richting[i]='Z' then
         write('Zuid ')
      else if wind.richting[i]='W' then
         write('West ');
      i:=i+1
   until i>3;
   writeln
end.