program Project1;
var arr:array[0..15,0..15] of integer;//обьявляем массив от 0 до 9 тоесть всего 10 элементов в массиве
i,j,max,min:integer; // переменная счётчика для цикла


begin
Randomize; // рандомайзер чтоб цифорки были разные
max:=0; // нач знач 0 так нужно
min:=0; // нач знач 0 так нужно
for i:=1 to 14 do // это цикл столбца
for j:=1 to 14 do // это цикл строки
begin
arr[i,j]:=random(401)-200; //присвоить ячейки arr с i столбцом j-строкой значение которое ебанёт в рандоме
if arr[i,j]>max then max:=arr[i,j]; // проверяем на максималное знач
if arr[i,j]<min then min:=arr[i,j]; // на минимальное проверка
end;
writeln('max: ',max);
writeln('min: ',min);
readln(); // чтоб не закрылась сразу
end.