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

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.