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

uses crt;
var
   y,z,x:array[1..100] of integer;
   i,n,a,b:integer;
begin
clrscr;
write('Введите количество чисел=');
readln(n);
writeln('Массив 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('Массив y');
for i:=1 to a do
 write(y[i]:4);
writeln;
writeln('Массив z');
for i:=1 to b do
 write(z[i]:4);
readln
end.