Помогите пожалуйста!!!

Const N=30;
var
a:array [1..N] of integer;
i,x,y:integer;
s:real;
begin
for i:=1 to N do read (a[i]);
writeln (a);
for i:=1 to N do
if a[i]lt;0 then
begin
x:=x + a[i];
y:=y + 1
end;
s:=x/y;
writeln ('Средняя температура, когда были заморозки, равна: ',s:0:3)
end.

x - сумма отрицательных температур
y - количество дней с отрицательной температурой
s - средняя температура