Оформить код в виде процедуры - PascalABC.NET

const n = 3;
var 
i, j, z, min, max:integer;
A: array[1..n, 1..n] of integer;
begin
// Ввод матрицы
randomize;
for i:= 1 to n do
for j:= 1 to n do
A[i,j]:= random(100);
 
// Вывод матрицы
for i:= 1 to n do
begin
for j:= 1 to n do
write(A[i,j]:3, ' ');
writeln();
end;
 
// Вывод седловых точек
for i:= 1 to n do
begin
for j:= 1 to n do
begin
// min = кол-во элементов, меньших A[i,j]
min:=0;
for z:=1 to n do
if A[i,j] > A[i,z] then 
min:=min+1;
if(min = 0) then
begin 
// max = кол-во элементов, больших A[i,j]
max:=0;
for z:=1 to n do
if A[i,j] < A[z,j] then
max:=max+1;
if max = 0 then
writeln('(',i,',',j,')');
end;
end;
end;
 
end.