Переделать процедуры в функции

uses crt;
const n=4;
type mtr=array[1..n,1..n] of integer;
procedure vvod(var a:mtr);
var i,j:byte;
begin
for i:=1 to n do
for j:=1 to n do
a[i,j]:=1+random(10);
end;
procedure vyvod(a:mtr;s:string);
var i,j:byte;
begin
writeln(s);
for i:=1 to n do
 begin
  for j:=1 to n do
  write(a[i,j]:4);
  writeln;
 end;
end;
procedure umn(a,b:mtr;var c:mtr);
var i,j,k:byte;
begin
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;
end;
var a,b,c:mtr;
begin
randomize;
vvod(a);
vvod(b);
vyvod(a,'Матрица А');
vyvod(b,'Матрица B');
umn(a,b,c);
vyvod(c,'Матрица C=А*B');
end.

Var t : Integer;
 
Function Sum(a,b : Integer; Var ss : integer) : Boolean;
Begin
  ss:=a+b;
  Sum:=a>b;
end;
 
Begin
  Writeln('3 > 7 ',Sum(3,7,t));
  Writeln('3+7 = ',t);
end.

uses crt;
const n=4;
type mtr=array[1..n,1..n] of integer;
function matrix:mtr;
var i,j:byte;
begin
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    result[i,j]:=1+random(10);
    write(result[i,j]:4);
   end;
  writeln;
 end;
end;
function umn(a,b:mtr):mtr;
var i,j,k:byte;
begin
for i:=1 to n do
for j:=1 to n do
 begin
  result[i,j]:=0;
  for k:=1 to n do
  result[i,j]:=result[i,j]+a[i,k]*b[k,j];
 end;
for i:=1 to n do
 begin
  for j:=1 to n do
  write(result[i,j]:4);
  writeln;
 end;
end;
var a,b,c:mtr;
begin
randomize;
writeln('Матрица А');
a:=matrix;
writeln('Матрица B');
b:=matrix;
writeln('Матрица C=A*B');
c:=umn(a,b);
end.