Дан массив все его элементы: а) увеличить в 2 раза; б) уменьшить на число а; в) разделить на первый элемент — Pascal(Паскаль)

const
  n = 20;

var
  Arr: array [1 .. n] of real;
  i: integer;
  a: real;

begin
  writeln('Введите a');
  readln(a);
  for i := 1 to Length(Arr) do
  begin
    Arr[i] := random(20);
    write(' ', Arr[i]:0:3);
  end;
  writeln();
  for i := 1 to Length(Arr) do
  begin
    Arr[i] := Arr[i] / 2;
    Arr[i] := Arr[i] - a;
    Arr[i] := Arr[i] / Arr[1];
  end;
  for i := 1 to Length(Arr) do
  begin
    write(' ', Arr[i]:0:3);
  end;

end.