СРОЧНО
Создать двумерный массив случайных чисел array[1..N,1..M] от 1 до 5, и найти столбец с минимальной суммой и строчку с максимальной.

Опс... там от 1 до 5 числа...исправлю

А я решил на процедурах сделать, потому что скоро в АВС будут расширения для матриц, как есть для векторов. И срезы типа a.row(i), a.Column(j)

И достаточно будет писать a.Row(i).Max ))

А не легче ли сразу добавить что-то типо a.RowMax?

a.RowMax(i: integer)

Я как раз сейчас и занимаюсь определением того, что надо добавить. Если у разработчика конференцию почитаете, там мне предложили дать набор таких функций.

const  n = 5;  m = 5;var  a: array[0..n, 0..m] of integer;  i, j, imin, jmax: integer;begin  writeln('Матрица: ');  for i := 1 to n do  begin    for j := 1 to m do    begin      a[i, j] := Random(5) + 1;      a[0, j] := a[0, j] + a[i, j];      a[i, 0] := a[i, 0] + a[i, j];      write(a[i, j] : 3);    end;    writeln;  end;  jmax := 1;  for i := 2 to n do    if a[i, 0] > a[jmax, 0] then      jmax := i;  imin := 1;  for j := 2 to m do    if a[0, j] < a[0, imin] then      imin := j;  writeln('Номер столбца: ', imin);  writeln('Номер строки: ', jmax);end.