Код с ошибкой, Error: Found declaration, Error: Wrong number of parameters specified for call - Pascal - Ответ 12459919

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.