Разработать программу поиска элемента матрицы

unit modul;
interface
const m=18;
      n=12;
type mtr=array[1..m,1..n] of integer;
procedure matrix(var a:mtr);
procedure search(a:mtr);
implementation
procedure matrix(var a:mtr);
var i,j:integer;
begin
randomize;
for i:=1 to m do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=10+random(90);
    write(a[i,j]:3);
   end;
  writeln;
 end;
end;
procedure search(a:mtr);
var i,j,i1,j1:integer;
    x,mn:real;
begin
write('Введите число для сравнения x=');
readln(x);
mn:=abs(x-a[1,1]);
i1:=1;
j1:=1;
for i:=1 to m do
for j:=1 to n do
if abs(x-a[i,j])<mn then
 begin
  mn:=abs(x-a[i,j]);
  i1:=i;
  j1:=j;
 end;
writeln('Наиболее близкое значение к числу ',x:0:2,' имеет элемент [',i1,',',j1,']=',a[i1,j1]);
end;
end.

uses modul,crt;
var a:mtr;
begin
matrix(a);
search(a)
end.

const
  n = 18;
  m = 12;
 
type
  matrix = array[1..n, 1..m] of integer;
 
var
  imax, jmax, x: integer;
  a: matrix;
 
procedure CreateMatrix(var c: matrix);
var
  i, j: integer;
begin
  for i := 1 to n do
    for j := 1 to m do
      c[i, j] := -n * m div 2 + Random(n * m);
end;
 
procedure PrintMatrix(c: matrix);
var
  i, j: integer;
begin
  for i := 1 to n do 
  begin
    for j := 1 to m do
      write(c[i, j]:6);
    writeln;
  end;
  writeln;
end;
 
function FindElement(c: matrix; x: integer; var ir, jr: integer): boolean;
var
  max, i, j: integer;
begin
  ir := 1;
  jr := 1;
  max := Maxint;
  for i := 1 to n do
    for j := 1 to m do
      if max > abs(c[i, j] - x) then 
      begin
        max := abs(c[i, j] - x);
        ir := i;
        jr := j;
      end;
  //writeln('i = ', ir, ' j = ', jr)
end;
 
begin
  randomize;
  write('Введите x: ');
  readln(x);
  CreateMatrix(a);
  PrintMatrix(a);
  FindElement(a, x, imax, jmax);
  writeln('Элемент матрицы, наиболее близкого к указанному пользователем значению: ', a[imax, jmax], ' в позиции: ', imax, ', ', jmax);
end.