Данные о направлении ветра (северный, южный, восточный, западный) и силе ветра за декаду ноября хранятся в массиве. Массив

PASCAL ABCvara: array[1..n] of wind;i, nday: integer;beginfor i := 1 to n do beginwrite(i, \' - день направление ветра (с,ю,в,з)\');readln(a[i].c);write(\'сила ветра :\');readln(a[i].f);if (a[i].c = \'ю\') and (a[i].f <= 4) then nday := nday + 1;end;writeln(\' Дней когда дул южный ветер с силой, не превышающей 4 м/с :\',nday);end.constn = 10;typewind = recordc: char; //направление ветра (с,ю,в,з)f: integer; //сила ветраend;