Написать программы! ) заполнить массив из 15 элементов случайным образом: 1. вещественными значениями x (22

Фрагмент программы:
var
  i: integer;
  a: array[1..15] of real;

begin
  for i := 1 to 15 do
    a[i] := Random + 22;
  { Или вместо предыдущей строчки подставьте одну из следующих:
  a[i] := 10 * Random;
  a[i] := 100 * Random - 50;
  a[i] := Random;
  }
   
  {
  Тут все что еще надо
  }
end.