Из двух одномерных целочисленных массивов, по 10 элементов в каждом, сформировать новый массив, включив в него все значения, кратные 10 заранее

Var s,i:integer;
A:array[1..10] of integer;
B:array[1..10] of integer;
C:array[1..20] of integer;
begin
for i:=1 to 10 do begin
read(a[i]);
if a[i] mod 10 = 0 then begin
s:=s+1;
C[s]:=a[i];
end;
end;
for i:=1 to 10 do begin
read(B[i]);
if a[i] mod 10 = 0 then begin
s:=s+1;
C[s]:=b[i];
end;
end;
for i:=1 to s do begin
write(c[i],' ');
end;
end.