Дан одномерный массив размером 10 Заполнить его числами из интервала [-15:15],случайным образом и напечатать только положительные числа

const
  N = 10;
Var
  M:array[1..N] of integer;
  i,k:integer;
Begin
  Randomize;
  Write('Эти числа не печатаются... ( ');
  For i:= 1 to N do
  Begin
    M[i] := random(31)-15;
    Write(M[i],' ');
  End;
  WriteLn(')');
  Write('Положительный числа:');
  For i:= 1 to N do
    if (M[i] > 0) then
      Write(' ',M[i]);
End.