Скопировать положительные элементы массива Х в Y. Отрицательные элементы замещаются на 0

var
  Form1: TForm1;
  mas: array of integer;
  y: array of integer;
    n:integer;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
 
     Randomize;
     n:=strtoint(edit1.text);
     SetLength(mas,n);
         edit2.Text:='   ';
     for i:=0 to n-1 do
 
      begin
     mas[i]:=round(20*random-10);
     edit2.Text:=edit2.text+'  '+inttostr(mas[i]);
      end;
 
end;
 
 procedure TForm1.Button2Click(Sender: TObject);
 var
i:integer;
begin
  SetLength(y,n);
for i:=0 to n-1 do
begin
if mas[i]>0 then
y[i]:=mas[i]
else y[i]:=0;
end;
edit3.text:=edit3.Text+' '+inttostr(y[i]);
 
 
end;
end.

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
  Randomize;
  n := strtoint(edit1.text);
  SetLength(mas, n);
  Edit2.text := '';
  for i := 0 to high(mas) do
    begin
      mas[i] := round(20 * Random - 10);
      Edit2.text := Edit2.text + '  ' + inttostr(mas[i]);
    end;
 
end;

 procedure TForm1.Button2Click(Sender: TObject);
 var
i:integer;
begin
  SetLength(y, n);
 Edit3.text := '';
  for i := 0 to high(y) do
    begin
      if mas[i] > 0 then
        y[i] := mas[i]
      else
        y[i] := 0;
      Edit3.text := Edit3.text + ' ' + inttostr(y[i]);
    end;
end;