Определить среднюю зарплату за каждый месяц

var a:array [1..12,1..18] of integer;
    i,j:integer;
    sr1,sr2,sr3,sr4,sr5,sr6,sr7,sr8,sr9,sr10,sr11,sr12:real;
begin
randomize;
  for i:=1 to 12 do
   for j:=1 to 18 do
   a[i,j]:=random(1000);
sr1:=0; sr2:=0; sr3:=0; sr4:=0; sr5:=0; sr6:=0; sr7:=0; sr8:=0; sr9:=0; sr10:=0; sr11:=0; sr12:=0;
For i:=1 to 12 do begin
For j:=1 to 18 do begin
sr[i]:=a[i,j]+sr[i];
end;
end;
For i:=1 to 12 do begin
sr[i]:=sr[i]/12;
write(sr[i],"_");
end;
 writeln (sr1,' ',sr2,' ',sr3,' ',sr4,' ',sr5,' ',sr6,' ',sr7,' ',sr8,' ',sr9,' ',sr10,' ',sr11,' ',sr12);
end.

var a:array [1..18,1..12] of integer;
    i,j:integer;
    sr : array[1..12] of real;
    
begin
  for j := 1 to 12 do sr[j] := 0;
  randomize;
  writeln('Янв.':8, 'Фев.':8, 'Март':8, 'Апр.':8, 'Май':8, 'Июнь':8,
          'Июль':8, 'Авг.':8, 'Сен.':8, 'Окт.':8, 'Нояб.':8, 'Дек.':8);
  for i:=1 to 18 do
  begin
    for j:=1 to 12 do
    begin
      a[i,j]:=random(1000) + 1;
      write(a[i,j]:8);
      sr[j] := sr[j] + a[i,j] {сумма}
    end;
    writeln
  end;
  writeln('средние зарплаты за месяц:');
  For i:=1 to 12 do
  begin
    sr[i] := sr[i] / 18;
    write(sr[i]:8:2)
  end
end.