Дан массив из 20 вещественных чисел заполненный случайным образом.Вывести на печать те эементы , которые меньше 0.5

var i: byte;     a: array [0..19] of real; begin      for i := 0 to 19 do      begin           a[i] := random(100) / 50;           writeln('[', i, '] => ', a[i]);      end;      writeln('-----------------');      for i := 0 to 19 do          if (a[i] < 0.5) then writeln('[', i, '] => ', a[i]); end. =)