Оформить программу через процедуру

const 
n = 20; 
m = 40; 
var 
i, k: integer; 
x:array[1..n] of integer; 
y:array[1..m] of integer; 
begin 
randomize; 
write('X(20): '); 
for i:=1 to n do 
begin 
x[i]:=random(100)-50; 
write(x[i]:5); 
end; 
writeln; 
write('Y(40): '); 
for i:=1 to m do 
begin 
y[i]:=random(100)-50; 
write(y[i]:5); 
end; 
writeln; 
for i:=1 to n do 
if x[i] <=0 then 
for k:=i to n do 
if x[k]>0 then 
begin 
x[i]:=x[k]; 
x[k]:=0; 
break; 
end; 
writeln; 
for i:=1 to n do 
if x[i] <=0 then 
x[i]:=0; 
write('X(20): '); 
for i:=1 to n do 
write(x[i]:5); 
 
for i:=1 to m do 
if y[i] <=0 then 
for k:=i to m do 
if y[k]>0 then 
begin 
y[i]:=y[k]; 
y[k]:=0; 
break; 
end; 
writeln; 
for i:=1 to m do 
if y[i] <=0 then 
y[i]:=0; 
write('Y(40): '); 
for i:=1 to m do 
write(y[i]:5); 
end.

procedure ОставитьТолькоПоложительные(var a : array of Integer);
begin
  a := a.Where(i->i>0).ToArray;
end;
 
begin
  var x := ArrRandomInteger(20, -50, +50);
  var y := ArrRandomInteger(20, -50, +50);
  Write('X(20) : '); x.Println;
  Write('Y(40) : '); y.Println;
  ОставитьТолькоПоложительные(x);
  ОставитьТолькоПоложительные(y);
  WriteLn;
  Write('X(20) : '); x.Println;
  Write('Y(40) : '); y.Println;
end.