Преобразовать массивы, расположив в них подряд положительные элементы

procedure vPositive(var v: array of Integer);
var i, j: Integer;
begin
  i:=Low(v); j:=Low(v);
  while (i<=High(v)) and (v[i]<=0) do Inc(i);
  for i:=i to High(v) do
    if v[i]>0 then begin
      v[j]:=v[i]; Inc(j);
    end;
  for i:=j to High(v) do v[i]:=0;
end;

procedure vPositive(var v: array of Integer);
var i: Integer;
begin
  FillChar(v,SizeOf(v),0);
  v[0]:=1; if High(v)>0 then v[1]:=1;
end;

procedure gen(var a: array of integer);
var
  i: integer;
begin
  for i := low(a) to high(a) do a[i] := -99 + random(199)
end;
 
procedure prn(s: string; const a: array of integer);
var
  i: integer;
begin
  writeln(s);
  for i := low(a) to high(a) do write(a[i]:4);
  writeln
end;
 
procedure chg(var a: array of integer);
var
  i, k: integer;
begin
  k := low(a);
  for i := low(a) to high(a) do
    if a[i] > 0 then
      begin
        a[k] := a[i];
        inc(k)
      end;
  for i := k to high(a) do a[i] := 0
end;
 
var
  x: array[1..50] of integer;
  y: array[1..60] of integer;
begin
  randomize;
  gen(x);
  prn('Исходный массив X:', x);
  chg(x);
  prn('Преобразованный массив X:', x);
  gen(y);
  prn('Исходный массив Y:', y);
  chg(y);
  prn('Преобразованный массив Y:', y);
  readln
end.