Помогите написать программу на паскале
Даны 2 массива. Элемент одного массива умножить на элемент другого в обратном порядке. Заранее спасибо

const  n = 8;var  a,b: array[1..n] of integer;  i, k, s: integer;begin  Randomize;  Write('Массив 1:  ');  for i := 1 to n do  begin    a[i] := Random(50)+1;    Write(a[i]:5);  end;  Writeln;  Write('Массив 2:  ');  for i := 1 to n do  begin    b[i] := Random(50)+1;    Write(b[i]:5);  end;  Writeln;  Write('Результат: ');  for i := 1 to n do Write(a[i]*b[n-i+1]:5);  Writelnend.Тестовое решение:Массив 1:     39   10   14   23   37   38   33   48Массив 2:     22   45    1   17   16   42   21   39Результат:  1521  210  588  368  629   38 1485 1056