Сказали что у меня не все пояснения к задаче, нужны пояснения к каждой строчке
Program kursz5;
uses crt; //Подключение модуля crt
const n=10;
const m=10;
var //Описание переменных
i,j,max,min:integer;
a:array[1..n,1..m] of integer; //Ввод массива
begin
randomize; //Подключение датчика случайных чисел
for i:=1 to n do //Ввод чисел для переменных массива
for j:=1 to m do
a[i,j]:=random(100); //Ввод случайных чисел
max:= a[1,1];
min:= a[1,1];
for i:=1 to n do
begin
for j:=1 to m do
begin
if a[i,j] > max then
max:= a[i,j]; //Вывод max элемента НЕ ПРАВИЛЬНО
if a[i,j] < min then
min:=a[i,j]; //Вывод min элемента
write(a[i,j]:5);
end;
writeln;
end;
writeln();
writeln('max=',max,' min=',min); //Вывод max и min значений
end.

Спасибо, но нужно описание каждой строчки задачи не сложно?)

Окей, сейчас

Вроде поправил

Program kursz5; //Название программыuses crt; //Подключение модуля crtconst n=10; //Определение неизменяемых переменныхconst m=10;var //Описание переменных i,j,max,min:integer;a:array[1..n,1..m] of integer; //(Ввод) Объявление массиваbeginrandomize; //Подключение датчика случайных чиселfor i:=1 to n do //Ввод чисел для переменных массива for j:=1 to m doa[i,j]:=random(100); //Ввод случайных чиселmax:= a[1,1]; //Присвоение к max элементах [1,1]min:= a[1,1]; //Присвоение к min элементах [1,1]for i:=1 to n do  //Будем делать пока i < nbeginfor j:=1 to m do //Будем делать пока i < mbeginif a[i,j] > max then  // если элемент массива больше max будем делать что нижеmax:= a[i,j]; //(Вывод max элемента НЕ ПРАВИЛЬНО) Здесь происходит присвоение к переменной max, Но никак не выводif a[i,j] < min then  //если элемент массива меньше min будем делать следующееmin:=a[i,j]; //(Вывод min элемента) Тоже самое, здесь присвоение к переменной minwrite(a[i,j]:5); - Здесь уже выводend;writeln; end;writeln(); writeln('max=',max,' min=',min); //Вывод max и min значенийend.