Ответ: Программа выполняет рандом массива

Объяснение:

const N = 10; //Переменная которая содержит число 10

var //переменная для массива

arr: array[1..N,1..N] of integer; //массив

max: integer;  

i,j: byte;// переменные

begin //конец цикла

randomize; //рандом

for i:=1 to N do begin //цикл  

for j:=1 to N do begin //цикл

arr[i,j] := random(1000); // рандом всего массива по циклу  

write(' |',arr[i,j]:3,'| '); //вывод текста

end;//конец  

writeln; //переброс на следующую строку

end;//конец

for i:=1 to N do //цикл

write(' ----- '); //вывод строки

writeln; //переброс на следующую строку

for j:=1 to N do begin //цикл

max := arr[1,j]; // запись цикла

for i:=2 to N do //цикл

if arr[i,j] > max then //проверка если массив больше максимального  

max := arr[i,j]; // запись массива

write(' ',max:3,' '); //вывод результата

end; //конец

writeln; //переброс на следующую строку

end." //конец кода