В массив B переписать положительные элементы массива A(N)

type
  mas = array [1..100] of integer;
 
var
  i, j, n: integer;
  g: real;
  a, b, x, y: mas;
 
begin
  randomize;
  readln(n);
  {1}for i := 1 to n
  do 
  begin
    a[i] := random(-50, 50);
    write(A[i], ' ');
  end; 
  writeln;
  for i := 1 to n
    do
    if A[i] > 0
    then begin
      inc(j);
      B[j] := A[i];
      write(B[j], ' ');
    end;
  writeln;
  writeln;
  j := 1;
  {2}for i := 1 to n
  do 
  begin
    y[i] := random(50);
    write(y[i], ' ');
    j *= A[i];
  end;
  writeln;
  g := exp(ln(j)/n);// среднее геометрическое
  writeln(g);
  j := 0;
  for i := 1 to n
    do 
    if Y[i] < g
    then begin
      inc(j);
      X[j] := Y[i];
      write(X[j],' ');
    end;
  writeln;  
end.

var
y:array [1..100] of integer;
x:array [1..100] of integer;
begin
  write('N = '); var n:=ReadlnInteger;
  var srg:=1.0;
  write('Массив Y: ');
  for var i:=1 to n do begin
    y[i]:=random(50)+1; write(y[i],' '); srg*=y[i];
  end;
  srg:=power(srg,1/n); writeln; writeln('Среднее геометрическое: ',srg:0:2);
  var k:=0; var i:=0;
  write('Массив X:');
  repeat
    i+=1;
    if y[i]<srg then begin
      k+=1; x[k]:=y[i]; write(' ',x[k]);
    end;
  until i=n;
end.