Паскаль: дан массив "а" состоящий из 10 случайных чисел, сформировать новый массив "в", значения которого будут в 5 раз меньше значения массива "а"

Var
  A: array [1..10] of real;
  B: array [1..10] of real;
  i: integer;
begin
  writeln('Массив А:');
  for i:= 1 to 10 do
  begin 
    A[i]:= random(200) - 100;  {Задаем каждый элемент массива А случайным числом на отрезке [-100; 100]}
    writeln(A[i]);
  end;
  writeln('Массив В:');
  for i:= 1 to 10 do
  begin
    B[i]:= A[i] / 5;
    writeln(B[i]);
  end;
end.