Процедура - pascal

[ctakanzor4]

Доброго времени суток!
Есть поставленная задача: Составить подпрограмму умножения одномерных матриц и подпрограмму их сравнения. с примичанием: подпрограммы составить таким образом, чтобы ввод-вывод данных осуществлялся в основной программе:

Немного не могу разобраться с циклом умножения в подпрограмме, если есть добрые люди - прощу вашей помощи


З.Ы моя программа (без сравнения):

Uses crt;
Type
    Mas=array [1..100] of integer;
    Matx=array [1..100] of integer;
Var
   M,N:integer;   A,B:mas;
   i,j:integer;   c:matx;
Procedure Umn (N,M:integer; Var A,B:mas);
Var i,j:byte;
    C:matx; element:longint;
Begin
element:=0;
for I:=1 to M do
For j:=1 to N do
begin
element:=a[i]*b[i];
C[i,j]:=element;
element:=0;
end;
end;
   Begin
ClrScr;
randomize;
Write('Введите кол-во элементов строки матрицы А:',' ');Readln(M);
Write('Введите кол-во элементов столбца матрицы B:',' ');Readln(N);
   {Ввод матриц а и б}
For i:=1 to M do
a[i]:=random(10);
For j:=1 to N do
b[i]:=random(10);
Writeln('Матрица А:');
For i:=1 to M do;
Write(a[i]:3);
Writeln('Матрица B:');
Writeln;
For j:=1 to N do
begin
Write(b[j]:3);
Writeln;
End;
{-------}
Umn(M,N);
{-------}
For i:=1 to M do
For j:=1 to N do
Begin
Write(C[i,j]:4);
writeln;
end;
readkey;
end.

[Z1000000]

Произведение двух одномерных матриц это одно число, а не матрица.

function Umn (N,M:integer; Var A,B:mas) : Double;
Var 
 i,j:byte;
Begin
Umn := 0;
for I:=1 to M do
 begin
 Umn:=Umn + a[i]*b[i];
 end;
end;

[ctakanzor4]

хм.. спасибо..