Паскаль. заполните двумерный массив 4х5 случайными вещественными числами [-1,1]. выведите его на экран. подсчитайте общее количество неотрицательных элементов в массиве. , только не заумными , т.к. только начали изучать паскаль

Var
  A: array [1..4, 1..5] of real;
  i, j, z: byte;
begin
randomize;
z := 0;
for i := 1 to 4 do
begin
  for j := 1 to 5 do
  begin
    A[i, j] := random*2-1;
    write(A[i, j]:6:2, ' ');
    if A[i, j] > 0 then z := z + 1;
  end;
  writeln;
end;
writeln('Количество нечетных элементов = ', z);
end.