Переделать задачу в процедуры

uses crt;
var
a: array[1..20,1..20] of integer;
b: array[1..10,1..10] of real;
c: array[1..10,1..10] of real;
n,i,j,k:integer;
Begin
clrscr;
randomize;
write('BBedite n=');
readln(n);
writeln;
for i:=1 to n do
  for j:=1 to n do a[i,j]:=random(9)+1;
write('Matrica A:');
writeln;
for i:=1 to n do begin
                 for j:=1 to n do
                 write(a[i,j]:3);
                 writeln;
                 end;
for i:=1 to n do
  for j:=1 to n do b[i,j]:=1/(i+j-1);
write('Matrica B:');
writeln;
for i:=1 to n do begin
                 for j:=1 to n do
                 write(b[i,j]:7:3);
                 writeln;
                 end;
for i:=1 to n do
 for j:=1 to n do begin
                  c[i,j]:=0;
                  for k:=1 to n do
                   c[i,j]:=c[i,j]+a[i,k]*b[k,j];
                  end;
write('Matrica C:');
writeln;
for i:=1 to n do begin
                 for j:=1 to n do
                 write(c[i,j]:7:3);
                 writeln;
                 end;
readln;
End.

uses crt;
const max=10;
type matr=array[1..max,1..max] of real;
procedure MatrA(var a:matr;var n:integer);
var i,j:integer;
begin
repeat
write('Размер матрицы до ',max,' n=');
read(n);
until n in[1..max];
writeln('Матрица А:');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=10*random;
    write(a[i,j]:6:2);
   end;
  writeln;
 end;
end;
procedure MatrB(var b:matr;n:integer);
var i,j:integer;
begin
writeln('Матрица B:');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    b[i,j]:=1/(i+j-1);
    write(b[i,j]:6:2);
   end;
  writeln;
 end;
end;
procedure MatrAB(a,b:matr;n:integer;var ab:matr);
var i,j,k:integer;
begin
for i:=1 to n do
for j:=1 to n do
 begin
  ab[i,j]:=0;
  for k:=1 to n do
  ab[i,j]:=ab[i,j]+a[i,k]*b[k,j];
 end;
writeln('Matrica AB:');
for i:=1 to n do
 begin
  for j:=1 to n do
  write(ab[i,j]:6:2);
  writeln;
 end;
end;
 
var
a,b,c:matr;
n:integer;
begin
randomize;
MatrA(a,n);
MatrB(b,n);
MatrAB(a,b,n,c);
end.