Даны три целочисленных массива А, В и С размера NА, NВ, NС соответственно, элементы которых упорядочены по убыванию

const nmax=20;
type mas=array[1..nmax] of integer;
{ввод массивов}
procedure Vvod(var a:mas;var n:integer;c:char);
var i:integer;
begin
repeat
write('Введите размер массива ',c,' от 2 до ',nmax,' n=');
readln(n);
until n in [2..nmax];
for i:=1 to n do
a[i]:=random(50);
end;
{сортировка по убыванию}
procedure Sort(var a:mas;n:integer;c:char);
var i,j,x:integer;
begin
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]<a[j] then
 begin
  x:=a[i];
  a[i]:=a[j];
  a[j]:=x;
 end;
writeln('Массив ',c);
for i:=1 to n do
write(a[i]:3);
writeln;
end;
{слияние двух массивов}
procedure Merge(a,b:mas;na,nb:integer;var c:mas; var nc:integer);
var i,j:integer;
begin
i:=1; j:=1; nc:=0; {устанавливаем счётчики}
while (i<=na) or (j<=nb) do {пока не дошли до конца каждого из массивов}
  begin
   if (i<=na) and (j<=nb) then {если оба массива ещё не закончились}
     begin
       if a[i]<b[j] then {то пишем в новый массив меньший из текущих элементов}
        begin
         inc (nc); {переходим к следующему элементу конечного массива}
         c[nc]:= a[i];
         inc (i); {переходим к следующему элементу соответствующего массива}
        end
       else
        begin
         inc (nc);
         c[nc]:= b[j];
         inc (j);
         end
     end
   else if j>nb then {иначе один из массивов уже закончился}
     begin {и мы пишем из того, в котором ещё есть элементы}
       inc (nc);
       c[nc]:= a[i];
       inc (i);
       end
   else if i>na then
     begin
       inc (nc);
       c[nc]:= b[j];
       inc (j);
     end;
  end;
end;
var a,b,c,p,d:mas;
    na,nb,nc,np,nd,i,j:integer;
begin
randomize;
vvod(a,na,'A');
vvod(b,nb,'B');
vvod(c,nc,'C');
Sort(a,na,'A');
Sort(b,nb,'B');
Sort(c,nc,'C');
Merge(a,b,na,nb,p,np);
Merge(p,c,np,nc,d,nd);
{удалим повторы}
i:=2;
while i<=nd do
if d[i]=d[i-1] then
 begin
  if i=nd then nd:=nd-1
  else
   begin
    for j:=i to nd-1 do
    d[j]:=d[j+1];
    nd:=nd-1;
   end;
 end
else i:=i+1;
writeln('Результат слияния:');
for i:=1 to nd do
write(d[i]:3);
end.