Написать программку замены положительных элементов вещественного массива Y[1..N] на

Решение в файле

uses crt;
var a: array of integer;    n, i: integer;    begin
WriteLn('Введите N');ReadLn(n);
a := new integer[n];
randomize; //наполняем массив случайными значениямиfor i:=0 to n-1 dobegina[i]:=random(100)-50;Write(a[i]:5);end;Writeln;
for i:=0 to n-1 do //сменяем положительные элементы нулемbeginif a[i]gt;0 then a[i]:=0;Write (a[i]:5);end;writeln;readln;end.