Данные о направлении ветра (северный, южный, восточный, западный) и силе ветра

PASCAL ABC
var
a: array[1..n] of wind;
i, nday: integer;
begin
for i := 1 to n do
begin
write(i, - денек направление ветра (с,ю,в,з));
readln(a[i].c);
write(сила ветра :);
readln(a[i].f);
if (a[i].c = ю) and (a[i].f lt;= 4) then nday := nday + 1;
end;
writeln( Дней когда дул южный ветер с силой, не превышающей 4 м/с :,nday);
end.

const
n = 10;
type
wind = record
c: char; //направление ветра (с,ю,в,з)
f: integer; //сила ветра
end;