Переписать код с использованием команд процедур и функций - Turbo Pascal

uses
  Crt;
 
const
  RMax = 20;
  CMax = 20;
  
type
  MyArr = array [1..RMax, 1..CMax] of integer;
 
procedure Writing(var a: MyArr; const Rows,Cols: integer);
var
  i,j: integer;
begin
  for i := 1 to Rows do
    for j := 1 to Cols do
    begin
      Write('a[', i, ',', j, ']:=');
      ReadLn(a[i,j])
    end;
end;
 
procedure Print(a: MyArr; Rows,Cols: integer; ch: char);
var
  i,j: integer;
begin
  WriteLn('ГЊГ*òðèöГ* ', ch, ':');
  for i := 1 to Rows do
  begin
    for j := 1 to Cols do
      Write(a[i,j]:2, ' ');
    WriteLn
  end;
end;
 
function FindMinRows(a: MyArr; Rows,Cols: integer): integer;
var
  i,j,tempi,tempj: integer;
begin
  tempi := 1;
  tempj := 1;
  for i := 1 to Rows do
    for j := 1 to Cols do
      if a[i,j] < a[tempi,tempj] then
      begin
        tempi := i;
        tempj := j
      end;
  WriteLn('ГЊГЁГ*èìóì Г¬Г*òðèöû: a[',tempi,',',tempj,']:=',a[tempi,tempj]);
  FindMinRows := tempi
end;
 
function FindMaxRows(a: MyArr; Rows,Cols: integer): integer;
var
  i,j,tempi,tempj: integer;
begin
  tempi := 1;
  tempj := 1;
  for i := 1 to Rows do
    for j := 1 to Cols do
      if a[i,j] > a[tempi,tempj] then
      begin
        tempi := i;
        tempj := j
      end;
  WriteLn('ГЊГ*êñèìóì Г¬Г*òðèöû: a[',tempi,',',tempj,']:=',a[tempi,tempj]);
  FindMaxRows := tempi
end;
 
procedure ReplaceRows(var a: MyArr; const RS,RE,Rows,Cols: integer);
var
  j,temp: integer;
begin
  for j := 1 to Cols do
  begin
    temp := a[RS,j];
    a[RS,j] := a[RE,j];
    a[RE,j] := temp
  end
end;
 
var
  a: MyArr;
  Rows,Cols: integer;
begin
  ClrScr;
  WriteLn('Г‡Г*Г¤Г*éòå êîëè÷åñòâî ñòðîê...');
  repeat
    ReadLn(Rows);
  until
    Rows in [1..RMax];
  WriteLn('Г‡Г*Г¤Г*éòå êîëè÷åñòâî ñòîëáöîâ...');
  repeat
    ReadLn(Cols);
  until
    Cols in [1..CMax];
  Writing(a, Rows, Cols);
  Print(a, Rows, Cols, 'A');
  ReplaceRows(a, FindMaxRows(a, Rows, Cols), FindMinRows(a,  Rows, Cols), Rows, Cols);
  Print(a, Rows, Cols, 'A');
  ReadLn
end.