Паскаль. двухмерный массив.

В массиве B [1 ... 10,1 ... 3] содержатся данные о количестве сотрудников учреждения. Элементы первой строки обозначают номер отдела, элементы второй строки количество мужчин в нем, элементы третьей строки количество женщин в отделе. Сколько всего сотрудников в учреждении и кого больше: мужчин или женщин?

Var b:array[1 ... 10,1 ... 3] of integer;

i, j, k, s, gi, bo:integer;

begin

writeln ('Исходный массив: ') ;

for i:=1 to 10 do

for j:=2 to 3 do b[i, j]:=random (30) ;

k:=1;

for i:=1 to 10 do begin

for j:=1 to 3 do

b[i, 1]:=k;

inc (k) ;

end;

for i:=1 to 10 do begin

for j:=1 to 3 do write (b[i, j]:5) ;

writeln;

end;

for i:=1 to 10 do

for j:=2 to 3 do

s:=s+b[i, j];

write (' Всего сотрудников в учреждении: ', s) ;

for i:=1 to 10 do

gi:=gi+b[i, 2];

write (' Женщин в учреждении: ', gi) ;

for i:=1 to 10 do

bo:=bo+b[i, 3];

write (' Мужчин в учреждении: ', bo) ;

if (gi>bo) then write (' женщин больше')

else write (' мужчин больше') ;

if (gi=bo) then write (' женщин и мужчин одинаковое количество') ;

end.