Вопрос Помогите написать программу на Free pascal

[intro123]

Дан целочисленный двумерный массив размером n на m, найти сумму всех элементов массива, элементов массива в каждой строке, определить наименьший элемент массива и номер строки

 

[otoman09]

var N, M, sum, min : Integer; mas:array[1..N, 1..M] or integer; begin for var I:=1 to N do for var J:=1 to M do sum:=sum+mas[I,J]; Writeln(sum); sum:=0; for var I:=1 to N do begin for var J:=1 to M do sum:=sum+mas[I,J]; Writeln(sum); sum:=0; end; min:=MaxInt; for var I:=1 to N do for var J:=1 to M do if mas[I,J] < min then min:=mas[I,J]; Writeln(min); end.