Cделать программу в Pascal по заданию:"Найти в двумерном массиве сумму массива,сумму элементов по столбцам и среднее арифметическое по строкам"

Спасибо

Пусть дан массив real arr[1..n][1..n1]заведём массивы real s1[1..n], s2[1..n1]n - кол - во строкn1 - кол -во столбцовОсновная часть:...for i:= 1 to n dos1[i] := 0;for i:= 1 to n1 dos2[i] := 0;for i:=1 to n do beginfor j:=1 to n1 do begins1[i] := s1[i] + arr[i][j];s2[j] := s2[j] + arr[i][j];end;s1[i] := s1[i] / nend;...s1[i] - среднее арифметическое для i строкиs2[i] - сумма элементов для i столбца