Срочно, задача на одномерные массивы (Pascal ABC).

Известен рост каждого из 22 учеников класса. Рост мальчиков условно задан отрицательными числами. Определить средний рост мальчиков и средний рост девочек.

если нужны вещественные числа, то надо заменить пару строк

ar:array[1.22] of real;

ms:=ms / m;

ds:=ds / d;

writeln(ms:3:2,' ',ds:3:2);

varar:array[1.22] of integer;ds,ms,i,m,d:integer;beginfor i:=1 to 22 do beginreadln(ar[i]);if ar[i]<0 thenbegin m:=m+1; ms:=ms+ar[i];endelse beginds:=ds+ar[i];d:=d+1end;end;ms:=ms div m;ds:=ds div d;writeln(ms,' ',ds);end.