Код с ошибкой, Error: Found declaration, Error: Wrong number of parameters specified for call

procedure random (c, x, y:integer; var r:integer);
  begin
     case c of
                1: r:=Random((y)+(x)+1)+x;
                2: r:=Random((y)+(x)+1)+y;
                3: r:=Random(Y-x+1)+x;
                4: r:=Random(x-y+1)+y;
                5: r:=Random(x+y);
                6: r:=Random((x+y))-(x+y);
                7: r:=x;
                8: r:=Random(((x)-(y)))-(x);
                9: r:=Random(((x)-(y)))-(y);
        end;
   end;
var
  a,b: array of array of integer;
  i,j,x,y,c,m,p,sum:integer;  
begin
Randomize;
sum:=0;
writeln('Кол-во строк и столбцов массива? //X,Y\\  ');
read(i,j); //Размерность массива
writeln('Диапазон чисел //от X,до Y\\ '); 
read(x,y); //и диапазон генерации вводятся с клавиатуры.
if (x=y) then
c:=7
else
if(x<0) and (y<0) then 
if (x<y) then 
c:=8
else
c:=9
else
if (x=0) or (y=0) then 
if(x<0) or (y<0) then 
c:=6
else
c:=5
else
if(x<0) or (y<0) then 
if (x<y) then 
c:=1
else 
c:=2
else
if (x<y) then 
c:=3
else 
c:=4;
SetLength(a,i);
for  m:=0 to i-1 do
  SetLength(a[m],j);
  SetLength(b,i);
  for  m:=0 to i-1 do
  SetLength(b[m],j);    
for  m:=0 to i-1 do begin  
writeln();
     for  p:=0 to j-1 do   begin                     
     random(c,x,y,a[m,p]);    //Заполнить двумерный массив случайными числами.
 sum:=sum+a[m,p];  //вычисляет сумму всех элементов массива
          write (a[m,p]:3,' ':3);
           end; 
         end;  
        c:=0;   
        writeln('Сумма =',sum);  
 for  m:=0 to i-1 do begin //новый массив С//
writeln();
     for  p:=0 to j-1 do  begin            
 if (a[m,p] <0) then          begin  
       b[m,p]:=1; //в котором заменить отрицательные элементы исходного массива на 1        
   end       
   else         
  b[m,p]:=a[m,p]; //а значения остальных элементов оставить без изменения 
   write(b[m, p]:3, ' ':3);      
  end;         
 end;         
 writeln('kol=',c);        
  a:=NIL;          
b:=NIL;     
end.

procedure MyRandom(c, x, y: integer; var r: integer); 
begin
  case c of
    1: r := Random((y) + (x) + 1) + x;
    2: r := Random((y) + (x) + 1) + y;
    3: r := Random(Y - x + 1) + x;
    4: r := Random(x - y + 1) + y;
    5: r := Random(x + y);
    6: r := Random((x + y)) - (x + y);
    7: r := x;
    8: r := Random(((x) - (y))) - (x);
    9: r := Random(((x) - (y))) - (y);
  end;
end;
 
var
  a, b: array of array of integer;
  i, j, x, y, c, m, p, sum: integer;
 
begin
  Randomize;
  sum := 0;
  writeln('Кол-во строк и столбцов массива? //X,Y\\  ');
  read(i, j); //Размерность массива
  writeln('Диапазон чисел //от X,до Y\\ '); 
  read(x, y); //и диапазон генерации вводятся с клавиатуры.
  if (x = y) then
    c := 7
  else
  if(x < 0) and (y < 0) then 
    if (x < y) then 
      c := 8
    else
      c := 9
  else
  if (x = 0) or (y = 0) then 
    if(x < 0) or (y < 0) then 
      c := 6
    else
      c := 5
  else
  if(x < 0) or (y < 0) then 
    if (x < y) then 
      c := 1
    else 
      c := 2
  else
  if (x < y) then 
    c := 3
  else 
    c := 4;
  SetLength(a, i);
  for m := 0 to i - 1 do
    SetLength(a[m], j);
  SetLength(b, i);
  for m := 0 to i - 1 do
    SetLength(b[m], j);    
  for m := 0 to i - 1 do 
  begin
    writeln();
    for p := 0 to j - 1 do 
    begin
      MyRandom(c, x, y, a[m, p]);    //Заполнить двумерный массив случайными числами.
      sum := sum + a[m, p];  //вычисляет сумму всех элементов массива
      write(a[m, p]:3, ' ':3);
    end; 
  end;  
  c := 0;   
  writeln('Сумма =', sum);  
  for m := 0 to i - 1 do 
  begin//новый массив С//
    writeln();
    for p := 0 to j - 1 do 
    begin
      if (a[m, p] < 0) then begin
        b[m, p] := 1; //в котором заменить отрицательные элементы исходного массива на 1        
      end       
      else         
        b[m, p] := a[m, p]; //а значения остальных элементов оставить без изменения 
      write(b[m, p]:3, ' ':3);      
    end;         
  end;         
  writeln('kol=', c);        
  a := nil;          
  b := nil;     
end.