Дана матрица размера m×n. Найти ее максимальный элемент. Pascal ABC

Предыдущий
вопрос Следующий
вопрос

program MaxElementMatrix;
const
MAX_SIZE = 100;
var
matrix: array[1..MAX_SIZE, 1..MAX_SIZE] of integer;
m, n, i, j, maxElement: integer;
begin
// Вводим размеры матрицы
write('Введите количество строк: ');
readln(m);
write('Введите количество столбцов: ');
readln(n);

// Вводим элементы матрицы
writeln('Введите элементы матрицы:');
for i := 1 to m do
begin
for j := 1 to n do
begin
read(matrix[i, j]);
end;
end;

// Ищем максимальный элемент
maxElement := matrix[1, 1];
for i := 1 to m do
begin
for j := 1 to n do
begin
if matrix[i, j] > maxElement then
maxElement := matrix[i, j];
end;
end;

// Выводим результат
writeln('Максимальный элемент матрицы: ', maxElement);
end.