помоги пожалуйста написать программу на языке Паскаля

Дан одномерный массив целых чисел, состоящий из 22 элементов, посчитать количество отрицательных элементов массива, а также количество элементов которые делятся на 9.

СПАСИБО

Готов принять любые шишки.

vara:array[1..100] of integer; s,s1,i:integer;beginfor i:=1 to 22 do begina[i]:=random(10)-10; if a[i]<0 then begins:=s+1;end;if a[i] mod 9=0 thenbegins1:=s1+1;end;end;writeln(s,s1);end.

var i,k1,k2:integer;begin;var ar:=ArrRandomInteger(23,-50,50);for i:=1 to 22 dobegin;write(ar[i]:4);if ar[i]<0 then inc(k1);if ar[i] mod 9=0 then inc(k2); end;writeln;writeln('Отрицательные:',k1);write('Делятся на 9:',k2);end.//Неинтересный вариантvar i,k1,k2:integer;ar:array[1..22] of integer;begin;for i:=1 to 22 dobegin;ar[i]:=random(100)-50;write(ar[i]:4);if ar[i]<0 then inc(k1);if ar[i] mod 9=0 then inc(k2);end;writeln;writeln('Отрицательные:',k1);write('Делятся на 9:',k2);end.