Сделайте анализ программы. каждую строчку, что она выполняет.

const N = 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."

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

Объяснение:

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." //конец кода