Переписать код под процедуры и функции - Turbo Pascal

Формулировка задачи:

привет!! помогите пожалуйста.если не сложно.. вот эту самую программу,нужно переписать,с помощью процедур и функций

program laba4;
var
A: array [1..100,1..100] of integer;
imax, imin, i, j, N, M, min, max, d: integer;
 
begin
writeln('vvedite chislo strok massiva A. M=');
readln(M);
writeln('vvedite chislo stolbcov massiva A. N=');
readln(N);
writeln('vvedite elementi massiva A:');
for i:=1 to M do           
    for j:=1 to N do
        readln(A[i][j]);
 
writeln('massiv A do obrabotki:');
for i:=1 to M do            
    begin
    for j:=1 to N do
    write(A[i][j],'   ');
    writeln();
    end;
 
min:=A[1][1];
max:=A[1][1];
imin:=1;
imax:=1;
for i:=1 to M do     
    for j:=1 to N do
        begin
        if A[i][j]<min then
           begin
            min:=A[i][j];
            imin:=i;
            end;
        end;
 
for i:=1 to M do   
    for j:=1 to N do
        begin
        if A[i][j]>max then
           begin
            max:=A[i][j];
            imax:=i;
            end;
        end;
 
for j:=1 to N do        
    begin
    d:=A[imin][j];
    A[imin][j]:=A[imax][j];
    A[imax][j]:=d;
    end;
 
writeln('noviy massiv A:');
for i:=1 to M do            
    begin
    for j:=1 to N do
    write(A[i][j],'   ');
    writeln();
    end;
readln();                   
 
end

заранее спасибо)

Решение задачи: «Переписать код под процедуры и функции»

Листинг программы

Uses
 CRT;
Const
 nmax=20;
 mmax=20;
Type
  mas=array[1..nmax,1..mmax] of integer;
var
 a:mas;
 i,j,jmax,jmin,imax,imin,n,m:integer;
 
procedure zap(Var m:mas;k,l:integer);
begin
randomize;
 for i:= 1 to k do
 begin
  for j:= 1 to l do
   begin
    m[i,j]:=random(10)-3;
    write(m[i,j]:3);
   end;
  writeln;
 end;
end;
 
procedure MinMax(Var m:mas;k,l:integer);
begin
 imax:=1;jmax:=1;
 imin:=1;jmin:=1;
 for i:= 1 to k do
 for j:= 1 to l do
 if m[i,j]>m[imax,jmax] then
 begin
  imax:=i;
  jmax:=j;
 end
 else
 if m[i,j]<m[imin,jmin] then
 begin
  imin:=i;
  jmin:=j;
 end;
end;
 
procedure obm(Var m:mas;l:integer);
Var
 buf:integer;
begin
 for j:=1 to l do
 begin
  buf:=m[imin,j];
  m[imin,j]:=m[imax,j];
  m[imax,j]:=buf;
 end;
end;
 
procedure print(Var m:mas;k,l:integer);
begin
 for i:= 1 to k do
 begin
  for j:= 1 to l do
    write(m[i,j]:3);
  writeln;
 end;
end;
 
Begin
 repeat
  Write('Г‚ГўГҐГ¤ГЁГІГҐ ГЄГ®Г«-ГўГ® Г±ГІГ°Г®ГЄ: ');
  Readln(n);
 until n in [1..nmax];
 repeat
  Write('Г‚ГўГҐГ¤ГЁГІГҐ ГЄГ®Г«-ГўГ® Г±ГІГ®Г«ГЎГ¶Г®Гў: ');
  Readln(m);
 until m in [1..mmax];
 zap(a,n,m);
 writeln;
 minmax(a,n,m);
 writeln('MAX[',imax,';',jmax,']:=',a[imax,jmax],'; MIN[',imin,';',jmin,']:=',a[imin,jmin]);
 writeln;
 obm(a,m);
 print(a,n,m);
 Readln
End.

Объяснение кода листинга программы

В начале кода используются модули CRT и Const. Модуль CRT используется для работы с консолью, а Const содержит константы nmax и mmax, которые определяют максимальные значения для переменных i, j, jmax, jmin, imax, imin, n и m.
Далее следует тип данных mas, который представляет собой двумерный массив целых чисел. Переменная a содержит значение типа mas, которое будет использоваться в дальнейшем.
Затем определены переменные i, j, jmax, jmin, imax, imin, n и m. Эти переменные используются для итерации по массиву m и выполнения различных операций.
Далее следует процедура zap, которая случайным образом заполняет массив m значениями от 1 до 10, вычитая 3. Затем значения выводятся на экран.
После этого определена процедура MinMax, которая находит минимальное и максимальное значения в массиве m. Эти значения сохраняются в переменных imin и imax соответственно.
Затем определена процедура obm, которая меняет местами минимальное и максимальное значения в массиве m.
После этого определена процедура print, которая выводит на экран значения массива m.
В начале блока Begin считываются значения переменных n и m с помощью функции Readln. Эти значения используются для вызова процедур zap, minmax, obm и print.
Код повторяется до тех пор, пока пользователь не введет значения n и m вне диапазона [1..nmax] и [1..mmax].
В конце блока Begin выводится сообщение с помощью функции Write, чтобы пользователь знал, что программа завершена.