Составить двумерный массив скалярного или векторного произведения — Pascal(Паскаль)

Program mas;
Uses crt;
Const n=5;
Var a,b: array[1..n] of integer; c: array[1..n,1..n] of integer; i,j: byte;
Begin
Clrscr;
Randomize;
Writeln('Исходные массивы: ');
For i:=1 to n do
begin
a[i]:=random(21)-10;
b[i]:=random(21)-10;
end;
For i:=1 to n do
Write(a[i]:3);
Writeln;
For i:=1 to n do
Write(b[i]:3);
Writeln;
Writeln('Результат: ');
For i:=1 to n do
begin
For j:=1 to n do
begin
c[i,j]:=a[i]*b[j];
Write(c[i,j]:3);
end;
Writeln;
end;
End.