Вывести на печать положительные элементы массива x1,x2....x100

var  x: array [1..100] of real;  i: byte;begin  for i := 1 to 100 do  begin    x[i] := random(3) - 1;    write(x[i]: 5);  end;  writeln();  for i := 1 to 100 do    if (x[i] > 0) then      writeln(x[i]);end.