Обработка массивов разной размерности

program Vision69;
{$APPTYPE CONSOLE}
uses SysUtils;
var a,b,c,a1,b1,c1:array [1..100] of Integer;
    q,i,n:Integer;
begin
  Write('Enter size of array [A] = ');Readln(n);
  Write('Array A [start] = ');q:=0;
  for i:=1 to n do
    begin
      a[i]:=Random(100)-50;
      if ((Odd(a[i])) and (a[i]>0)) then
        begin
          Inc(q);
          a1[q]:=a[i];
        end;
      Write(a[i],' ');
    end;
  Writeln;
  write('Array A [finish] = ');
  if (q=0) then Write('No element.')
  else
    begin
        for i:=1 to q do
          begin
            write(a1[i],' ');
          end;
    end;
  Writeln;
  Write('Enter size of array [B] = ');Readln(n);
  Write('Array B [start] = ');q:=0;
  for i:=1 to n do
    begin
      b[i]:=Random(100)-50;
      if ((Odd(b[i])) and (b[i]>0)) then
        begin
          Inc(q);
          b1[q]:=b[i];
        end;
      Write(b[i],' ');
    end;
  Writeln;
  write('Array B [finish] = ');
  if (q=0) then Write('No element.')
  else
    begin
        for i:=1 to q do
          begin
            write(b1[i],' ');
          end;
    end;
  Writeln;
  Write('Enter size of array [C] = ');Readln(n);
  Write('Array C [start] = ');q:=0;
  for i:=1 to n do
    begin
      c[i]:=Random(100)-50;
      if ((Odd(c[i])) and (c[i]>0)) then
        begin
          Inc(q);
          c1[q]:=c[i];
        end;
      Write(c[i],' ');
    end;
  Writeln;
  write('Array B [finish] = ');
  if (q=0) then Write('No element.')
  else
    begin
        for i:=1 to q do
          begin
            write(c1[i],' ');
          end;
    end;
  Writeln;
  Writeln('The end.');
  readln;
end.