Массивы и подпрограммы

Program t_9;
Type matrix = Array [1..10, 1..10] Of Integer;
Var m: matrix;
    n, k, l: Integer;
Procedure input_matrix (Var m: matrix; Var n: Integer);
  Var a, b, p1, p2, i, j: Integer;
  Begin
    Write ('Введите размер квадратной матрицы n');
    WriteLN (' не менее 2 и не более 10');
    ReadLN (n);
    If (n<2) Or (n>10) Then Begin
      Write ('Вы ввели размер матрицы меньше 2 или');
      Write (' больше 10, поэтому будет принят');
      WriteLN (' максимальный размер, т.е. n=10');
      n:=10;
    End;
    Write ('Введите левую a и правую b границы');
    WriteLN (' диапазона значений компонент матрицы');
    Write ('a='); ReadLN (a);
    Write ('b='); ReadLN (b);
    If a>b Then Begin
      p1:=a; a:=b; b:=p1;
    End;
    If a=b
      Then Begin
        p1:=0; p2:=b;
      End
      Else If b=0
             Then Begin
               p1:=a; p2:=0;
             End
             Else Begin
               p1:=b-a; p2:=a;
             End;
    Randomize;
    For i:=1 To n Do
      For j:=1 To n Do
        m[i,j]:=random(p1+1)+p2;
  End;
Procedure output_matrix (Var m: matrix; n: Integer);
  Var i, j: Integer;
  Begin
    For i:=1 To n Do Begin
      For j:=1 To n Do Write (m[i,j]: 4, ' ');
      WriteLN;
    End;
  End;