Составить программу с использованием процедуры и функции

uses
    crt;
type
    mat=array[1..100] of integer;
var
   a,b:mat;
   i,j,n,t,m,p,s1,s2:integer;
procedure vvod(var d:mat; h:byte);
begin
     writeln('wvedite matricu razmeron ' , h ,'x', h);
     for i:=1 to h do
         read(d[i]);
end;
function sum(var m:mat):integer;
var
    s:integer;
begin
     s:=0;
     for i:= 1 to n do
         begin
              s:=m[i]+s;
         end;
 sum:=s;
end;
procedure vivod(var l:mat;k:integer;q:integer;t:byte);
begin
     writeln('matrica: ',t);
     for i:= 1  to q do
         write(l[i]:4);
     writeln;
     writeln('summa elemntov v etom massive ravna: ',k)
end;
begin
clrscr;
writeln('wvedite razmernost matrici A ');
readln(n);
vvod(a,n);
s1:=sum(a);
vivod(a,s1,n,1);
writeln;
writeln('wvedite razmernost matrici B ');
readln(m);
vvod(b,m);
s2:=sum(b);
vivod(b,s2,m,2);
readkey;
end.

type
mas=array [1..100] of integer;
var
a,b:mas;
n,n1:integer;
procedure FormMas(var c:mas;raz:integer);
var
i:integer;
begin
 randomize;
  for i:=1 to raz do
    c[i]:=random(100)-40;
end;
procedure Print( c:mas;raz:integer);
var
i:integer;
begin
 randomize;
  for i:=1 to raz do
    write(c[i]:4);
end;
function Sum( c:mas;raz:integer):integer;
var
i,s:integer;
begin
 s:=0;
  for i:=1 to raz do
    s:=s+c[i];
  Sum:=s;
end;
 
begin
  writeln('Введите размер первого массива');
  readln(n);
  writeln('Введите размер второго массива');
  readln(n1);
  FormMas(a,n);
  FormMas(b,n1);
  writeln('Массив a ');
  Print(a,n);
  writeln;
  writeln('--------------------------');
  writeln('Массив b ');
  Print(b,n1);
  writeln;
  writeln('--------------------------');
  writeln('Сумма массива a ',Sum(a,n));
  writeln('Сумма массива b ',Sum(b,n1));
end.