Написать программку, которая заполняет два одномерных массива случайными числами. Получить

Const
  n=15; длина массива
type
  tm=array[1..n] of integer;
var
  i:byte;
  a,b,c:tm;
begin
  randomize;
  for i:=1 to n do
  begin
    a[i]:=random(101-50);
    b[i]:=random(101-50);
    c[i]:=a[i]*b[i];
    Write(a[i],' ')
  end;
  Writeln;
  for i:=1 to n do
  begin
    Write(b[i],' ')
  end;
  Writeln;
  for i:=1 to n do
  begin
    Write(c[i],' ')
  end;
  Writeln
end.