Даны два массива. Сформировать из их положительных элементов новый массив — Pascal(Паскаль)

uses crt;
var a,b,c:array[1..100] of integer;
    i,n:integer;
 begin
  ClrScr;
  Randomize;
  repeat
  Write('n=');
  Readln(n);
  until n>1;
   for i:=1 to n do
    begin
     a[i]:=-4+random(10);
     Write(a[i]:3);
    end;
   Writeln;
   for i:=1 to n do
    begin
     b[i]:=-2+random(8);
     Write(b[i]:3);
    end;
     for i:=1 to n do
      begin
       if a[i]>0 then
        c[i]:=a[i];
      end;
     for i:=1 to n do
      begin
       if b[i]>0 then
        c[i]:=b[i];
      end;
     Writeln;
  Writeln('Полученный массив...');
     for i:=1 to n do
      Write(c[i]:3);
  Readln;
 end.