Задача по Pascal Помогите, пожалуйта.

var A, B, C : array [1..100] of Integer; SizeA, SizeB, SizeC : Byte;
...
Ввести или заполнить массивы A и B можешь сам!
...
SizeC := 0;
for N := 1 to SizeA do if (A[N] < 0) or (A[N] > B[1]) then begin Inc(Size(C)); C[SizeC] := A[N]; end;
for N := 1 to SizeB do if (B[N] < 0) or (B[N] > B[1]) then begin Inc(Size(C)); C[SizeC] := B[N]; end;
...
Всё! Массив С заполнен.

var a,b,c:array[1..100] of integer;
i,j,n,k:integer;
begin
write('Введите колчество элементов 1ого массива: ');
readln(n);
writeln('Введите элементы 1ого массива: ');
for i:=1 to n do
begin
write('[',i,'] = ');
readln(a[ i ]);
end;
write('Введите колчество элементов 2ого массива: ');
readln(k);
writeln('Введите элементы 2ого массива: ');
for i:=1 to k do
begin
write('[',i,'] = ');
readln(b[ i ]);
end;
for i:=1 to n do
if a[ i ]<0 then begin
inc(j);
c[ j ]:=a[ i ];
end;
for i:=1 to n do
if a[ i ]>b[ 1 ] then begin
inc(j);
c[ j ]:=a[ i ];
end;
for i:=1 to k do
if b[ i ] >b[ 1 ] then begin
inc(j);
c[ j ]:=b[ i ];
end;
writeln;
writeln('Третий массив: ');
for i:=1 to j do
write(c[ i ],' ');
readln;
end.

if оплата>50$ then "сделаю" else "читай_книжку"