Переделка кода

unit Unit1;
interface
const
  maxrow = 20;
  maxcol = 20;
type
  TArr = array[1..maxrow,1..maxcol] of integer;
 
procedure inArray(var arr: TArr; var nn,mm: integer);
procedure OutArray(arr: TArr; nn,mm: integer);
procedure CountElement(arr: TArr; nn,mm,dd: integer; var element1,element2,element3: integer);
 
implementation
 
 
procedure inArray(var arr: TArr; var nn,mm: integer);
{Процедура для ввода значений в двумерный массив}
var
  i,j: integer;
begin
  write('Введите значение количества строк в двумерном массиве (не более ',maxrow,'): ');
  Readln(nn);
  write('Введите значение количества столбцов в двумерном массиве (не более ',maxcol,'): ');
  Readln(mm);
  for i:= 1 to nn do
    for j:= 1 to mm do
    begin
      write('Введите значение элемента [',i,',',j,']: ');
      Readln(arr[i,j]);
    end;
end;
 
procedure OutArray(arr: TArr; nn,mm: integer);
{Процедура для вывода двумерного массива в консоль}
var
  i,j: integer;
begin
  for i:= 1 to nn do
    begin
      for j:= 1 to mm do
        write(arr[i,j]:5);
      Writeln;
    end;
end;
 
procedure CountElement(arr: TArr; nn,mm,dd: integer; var element1,element2,element3: integer);
{Процедура которая определяет, сколько элементов в двумерном массиве меньше, больше или равно заданному числу}
{element1 - переменная-параметр для подсчета элементов, которые больше dd
 element2 - переменная-параметр для подсчета элементов, которые равны dd
 element3 - переменная-параметр для подсчета элементов, которые меньше dd}
var
  i,j: integer;
begin
  element1:= 0;
  element2:= 0;
  element3:= 0;
  for i:= 1 to nn do
    for j:= 1 to mm do
      if arr[i,j] > dd then
        inc(element1)
      else
        if arr[i,j] < dd then
          inc(element3)
        else
          inc(element2);
end;
 
end.

program Project1;
uses unit1;
var
  a: TArr;      { Переменная для хранения массива.}
  n,m: integer; { Переменные для хранения значения строк и столбцов двумерного массива. }
  d: integer; { Переменная для хранения значения заданного числа.}
  elem1, elem2, elem3: integer; {переменные для хранения значений подсчетов элементов}
begin
  InArray(a,n,m);
  writeln('Исходный массив: ');
  OutArray(a,n,m);
  write('Введите значение числа, для которого будет произведен поиск: ');
  Readln(d);
  CountElement(a,n,m,d,elem1,elem2,elem3);
  if elem1 = 0 then
    writeln('В массиве не обнаружено элементов имеющих значение больше чем ',d,'. ')
  else
    writeln('В массиве обнаружено ',elem1,' элементов имеющих значение больше чем ',d,'. ');
  if elem2 = 0 then
    writeln('В массиве не обнаружено элементов имеющих значение равное ',d,'. ')
  else
    writeln('В массиве обнаружено ',elem2,' элементов имеющих значение равное ',d,'. ');
  if elem3 = 0 then
    writeln('В массиве не обнаружено элементов имеющих значение меньше чем ',d,'. ')
  else
    writeln('В массиве обнаружено ',elem3,' элементов имеющих значение меньше чем ',d,'. ');
  Readln;
end.

procedure inArray(var arr: TArr; var nn, mm: integer);
{Процедура для ввода значений в двумерный массив}
var
  i, j: integer;
begin
  write('Введите значение количества строк в двумерном массиве (не более ', maxrow, '): ');
  Readln(nn);
  write('Введите значение количества столбцов в двумерном массиве (не более ', maxcol, '): ');
  Readln(mm);
  for i := 1 to nn do
    for j := 1 to mm do
      arr[i, j] := -nn div 2 + random(nm);
end;

type
  TArr = array[1..maxrow,1..maxcol] of integer;

procedure inArray(var arr: TArr; var nn, mm: integer);
{Процедура для ввода значений в двумерный массив}
var
  i, j: integer;
begin
  write('Введите значение количества строк в двумерном массиве (не более ', maxrow, '): ');
  Readln(nn);
  write('Введите значение количества столбцов в двумерном массиве (не более ', maxcol, '): ');
  Readln(mm);
  for i := 1 to nn do
    for j := 1 to mm do
      arr[i, j] := -50 + random(101);
end;