Программа вычисления матрицы процедурой или функцией

uses crt;
const n=4;
      m=6;
var a,b:array[1..n,1..n] of integer;
    z:array[1..m] of integer;
    i,j:byte;
    c:integer;
begin
randomize;
writeln('Матрица A:');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=random(20);
    write(a[i,j]:4);
   end;
  writeln
 end;
writeln('Вектор Z:');
for i:=1 to m do
 begin
  z[i]:=random(20);
  if i=1 then c:=z[i]
  else if z[i]>c then c:=z[i];
  write(z[i]:4)
 end;
writeln;
writeln('Наибольший элемент вектора Z=',c);
writeln('Матрица B:');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    b[i,j]:=c*a[i,j];
    write(b[i,j]:4);
   end;
  writeln
 end;
end.

uses crt;
const n=4;
      m=6;
type mtr=array[1..n,1..n] of integer;
     vek=array[1..m] of integer;
procedure matrix1(var a:mtr);
var i,j:byte;
begin
writeln('Ìàòðèöà A:');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=random(20);
    write(a[i,j]:4);
   end;
  writeln
 end;
end;
procedure vektor(var z:vek);
var i:byte;
begin
writeln('Âåêòîð Z:');
for i:=1 to m do
 begin
  z[i]:=random(20);
  write(z[i]:4)
 end;
writeln;
end;
function max(z:vek):integer;
var i:byte;
    mx:integer;
begin
mx:=z[1];
for i:=2 to m do
if z[i]>mx then mx:=z[i];
max:=mx
end;
procedure matrix2(a:mtr;c:integer;var b:mtr);
var i,j:byte;
begin
writeln('Ìàòðèöà B:');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    b[i,j]:=c*a[i,j];
    write(b[i,j]:4);
   end;
  writeln
 end;
end;
var a,b:mtr;
    z:vek;
    c:integer;
begin
randomize;
matrix1(a);
vektor(z);
c:=max(z);
writeln('Íàèáîëüøèé ýëåìåíò âåêòîðà Z=',c);
matrix2(a,c,b);
end.