Имеется массив на N чисел, заменить все отрицательные числа на 0 и вывести этот массив.

const n=100;var m:array[1..n] of integer;i:integer;beginreadln(n);for i:=1 to n dobeginread(m[i]);if m[i]<0 then m[i]=0;end;for i:=1 to n dowrite(m[i], ' ');end.Константой задано число n.Во второй строке задано n чисел для массива.