Заданы массивы A1, A2, …, A10 и С1, С2, …, С10 и число P. Построить ряд D, содержащий Ai и Сi, меньше заданного P — Pascal(Паскаль)

uses crt;
const n=10;
var a,c,d:array[1..2*n] of integer;
    i,j,k:byte;
    p:integer;
begin
clrscr;
randomize;
writeln('Массив A:');
for i:=1 to n do
 begin
  a[i]:=random(20)+1;
  write(a[i],' ');
 end;
writeln;
writeln;
writeln('Массив C:');
for i:=1 to n do
 begin
  c[i]:=random(20)+1;
  write(c[i],' ');
 end;
writeln;
writeln;
write('Введите число для сравнения p=');
readln(p);
k:=0;
for i:=1 to n do
if a[i]<p then
 begin
  k:=k+1;
  d[k]:=a[i];
 end;
for i:=1 to n do
if c[i]<p then
 begin
  k:=k+1;
  d[k]:=c[i];
 end;
if k=0 then write('Чисел меньше ',p,' нет!')
else
 begin
  writeln('Массив D:');
  for i:=1 to k do
  write(d[i],' ');
 end;
readln
end.