Создать два динамических массива, заполнить их рандомно. На экран выдать произведение соответствующих элементов массивов. (Написать на Pascal)

Большое Вам спасибо!

// PascalABC.NET 3.3, сборка 1583 от 25.11.2017// Внимание! Если программа не работает, обновите версию!begin  var n:=ReadInteger('n=');  var a:=ArrRandom(n,-99,99); a.Println;  var b:=ArrRandom(n,-99,99); b.Println;  a.Zip(b,(x,y)->x*y).Printlnend.Примерn= 13-33 -22 -61 -21 24 -40 -30 77 46 19 -60 2 53-99 27 90 -13 -17 19 76 -85 -18 4 91 -93 -593267 -594 -5490 273 -408 -760 -2280 -6545 -828 76 -5460 -186 -3127

var  A, B: array of integer;  N, i: integer;begin  randomize;  write('Размер массива = '); readln(N);  SetLength(A, N); SetLength(B, N);for i := 0 to n-1 dobegin  A[i] := random(61)-20;  write(A[i]:6);end;  writeln;for i := 0 to n-1 dobegin  B[i] := random(41)-10;  write(B[i]:6);end;  writeln; writeln;for i := 0 to n-1 do   write((B[i]*A[i]):6);readln;  end.