Переписать подряд в массив Y положительные и в массив Z отрицательные элементы массива X(N) — Pascal(Паскаль)

var
   y,z,x:array[1..100] of integer;
   i,n,a,b:integer;
begin
write('Vvedit kolichestvo elementov 1 massiva=');
readln(n);
writeln('Massiv X:');
randomize;
for i:=1 to n do
 begin
  x[i]:=random(51)-10;
  write(x[i]:4);
  if (x[i]>0) then
   begin
    inc(a);
    y[a]:=x[i];
   end;
  if (x[i]<0) then
   begin
    inc(b);
    z[b]:=x[i];
   end;
 end;
writeln;
writeln('Massiv Y:');
for i:=1 to a do
 write(y[i]:4);
writeln;
writeln('Massiv Z:');
for i:=1 to b do
 write(z[i]:4);
readln
end.