Как найти максимальный элемент в двумерный массив

В общем, я вот так записала программу но что- то в ней не то, потому что она не максимальный выводит
var a:array[1..10,1..5] of integer;
i,j,max:integer;
begin
randomize;
for i:=1 to 10 do
begin
for j:=1 to 5 do
begin
a[i,j]:=random(50);
write(a[i,j]:4);
end;
writeln;
end;

for i:=1 to 10 do
max:=a[i,1];
begin

for j:=1 to 5 do

begin
if a[i,j]>max then max:=a[i,j];
end;
writeln(‘max=’,max);
end;
writeln;
end.

Программа ввода и вывода элементов массива может выглядеть следующим образом:

program z1;
const nm=10; mm=10;
type mas=array[1..nm,1..mm] of real;
var a:mas;
i,j,n,m:integer;

Тест

I am trying to find min (by row) and max (by column) element in two-dimensional (4,4) array and then store them in new array (5,5).

That is how it should look for new array (5,5):

1 2 3 4 min
5 6 7 8 min
4 4 4 5 min
3 5 5 6 min
m m m m  0

*m – max

Here it is the entire code:

#include <iostream>
using namespace std;
int main() {
    int A[4][4];/*First array*/
    int i, j;


    for (i = 0; i < 4; i++)
        for (j = 0; j < 4; j++) {
            cout << "n A[" << i + 1 << "][" << j + 1 << "]=";
            cin >> A[i][j];
        }

    for (i = 0; i < 4; i++) {
        for (j = 0; j < 4; j++)
            cout << A[i][j] << "t";

        cout << "n";
    }
    {
        int min[4];/* find min on each row*/
        for (i = 0; i < 4; i++) {
            min[i] = A[0][i];
            for (j = 1; j < 4; j++) {
                if (min[i] > A[i][j])
                    min[i] = A[i][j];
            }
        }
        int newarr[5][5];/* here i create the new array 5,5)*/
        int max[5] = { 1,2,3,4,5 };
        for (i = 0; i < 4; i++) {
            for (j = 0; j < 4; j++) {
                newarr[i][j] = A[i][j];
                newarr[i][5] = max[i];
            }
        }

        for (j = 0; j < 4; j++)
            newarr[5][j] = min[j];
        cout << newarr[5][j] << "t";
        cout << "n";
}

}

I put random elements to max. Because so far I only test. But once I started my program it show correct only the first array. And where should be the new array it shows zero. Here it is the outcome of the debugging:

5   4   3   1   
5   6   7   9   
4   2   3   9   
4   8   4   6   
0   

How to fix it?
And how to put zero in the last element (as you can see in the first table for the new array).

Обработка двумерных массивов позволяет получить какие-то результаты путем анализа данных в массиве. Сам массив при этом не изменяется. Задачи поиска элементов, удовлетворяющих условию, подсчета суммы, поиска максимального и др. во многом решаются аналогично тому, как это происходило для линейных массивов.

Пример 15.8. Задан двумерный массив d из m строк и n столбцов. Посчитать сумму тех элементов массива, у которых сумма квадратов номера строки и номера столбца равна заданному числу x.

Этапы выполнения задания

I.  Исходные данные: переменные m и n (количество строк и столбцов в массиве), d — двумерный массив, x (число).

II.  Результат: переменная s (сумма искомых элементов).

III. Алгоритм решения задачи.

1. Ввод исходных данных. Массив вводится поэлементно. 
2. Определение начального значения для суммы (s = 0). 
3. Проверяем текущий элемент. Если он удовлетворяет условию, то добавляем его к сумме. 
4. Вывод результата.

IV. Описание переменных: n, x, s – int, d – vector<vector <int>>

Пример 15.9. Задан двумерный массив d из m сток и n столбцов. Определить, есть ли в массиве хотя бы один элемент, кратный x. Если да, то вывести индексы его местоположения.

Этапы выполнения задания

I. Исходные данные: переменные m и n (количество строк и столбцов в массиве), d — двумерный массив, x (число).

II. Результат: переменные r, c (номера строки и столбца, в которых найден элемент) или сообщение «не найден».

III. Алгоритм решения задачи.

1. Ввод исходных данных. Массив заполняется случайными числами. 
2. Определение начального значения для искомых индексов (r = -1, c = -1). 
3. Проверка текущего элемента. Если он удовлетворяет условию, то меняем значения r и c. 
4. Вывод результата. Если переменные r и c не изменились, то выводим сообщение, что элемент не найден, иначе выводим их значения.

IV. Описание переменных: n, x, r, c – int, d – vector<vector <int>>

Если в массиве несколько элементов, удовлетворяющих условию задачи, то будет выведен последний найденный элемент. Если нужен первый элемент, то можно ввести дополнительную переменную-флаг, которая будет равна true, пока значения r и c не изменились. После их изменения она станет false и значения r и c больше меняться не будут (пример 15.10).

Пример 15.11. Задан двумерный массив d из m строк и n столбцов. Найти минимальный и максимальный элементы и вывести индексы их местоположения.

Этапы выполнения задания

I. Исходные данные: переменные m и n — количество строк и столбцов в массиве, d — двумерный массив, x — число.

II. Результат: переменные r_min, c_min, r_max, c_max — номера строки и столбца, в которых найден элемент.

III. Алгоритм решения задачи.

1. Ввод исходных данных. Массив заполняется случайными числами.
2. Определение начального значения для искомых индексов (r_min = 0, c_min = 0, r_max = 0, c_max = 0).
3. Проверяем текущий элемент. Если он больше текущего максимального, то меняем значения r_max, c_max.
4. Проверяем текущий элемент. Если он меньше текущего минимального, то меняем значения r_min, c_min.
5. Вывод результата.

IV. Описание переменных: n, m, n_min, c_min, r_max, c_max – int, d – vector<vector <int>>

Если в массиве несколько элементов, равных максимальному (минимальному), то будет выводиться местоположение первого из таких элементов. Если нужно получить местоположение последнего, то достаточно заменить знак «>» («<») на «>=» («<=»).

В математике для матрицы определены понятия главная диагональ и побочная диагональ. На главной диагонали находятся элементы матрицы d[i][j], для которых верно условие i = j. Для элементов побочной диагонали: i + j = n – 1 (n — число столбцов, нумерация с 0).