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

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