На одномерные массивы (pascal abc). известен рост каждого из 22 учеников класса. рост мальчиков условно задан отрицательными числами. определить средний рост мальчиков и средний рост девочек.

Var
ar:array[1.22] of integer;
ds,ms,i,m,d:integer;
begin
for i:=1 to 22 do begin
readln(ar[i]);
if ar[i]<0 then
begin
 m:=m+1;
 ms:=ms+ar[i];
end
else
begin
ds:=ds+ar[i];
d:=d+1
end;
end;
ms:=ms div m;
ds:=ds div d;
writeln(ms,' ',ds);
end.