Составить блок-схему по программе

[VirusGol]

Помогите составить блок-схему по программе, а то блок-схемник пишет что много операторов и не строит.
1)Даны три целочисленных массива A, B и С размера NA, NB, NC соответсвенно, элементы которых упорядочены по убыванию. Объединить эти массивы так чтобы результирующий целочисленный массив D (размера NA+ NB+ NC ) остался упорядоченным по убыванию.

uses crt;
const n=5;
var a,b,c,d:array[1..n] of integer;
    i,z,r:integer;
    q:boolean;
begin
write('Введите размерность векторов: ');
readln(r);
for i:=1 to n do 
  begin
  WRITE('a[',i,'] => ');
  readln(a[i]);
  end;
 writeln();
for i:=1 to n do 
  begin
  WRITE('b[',i,'] => ');
  readln(b[i]);
  end;
 writeln();
for i:=1 to n do 
  begin
  WRITE('c[',i,'] => ');
  readln(c[i]);
  end;
 writeln();
   Repeat
      q:=true;
      For i:=1 to n-1 do
         If a[i]<a[i+1] then
         begin
            z:=a[i];
            a[i]:=a[i+1];
            a[i+1]:=z;
            q:=false;
         end;
   Until q;
   Repeat
      q:=true;
      For i:=1 to n-1 do
         If b[i]<b[i+1] then
         begin
            z:=b[i];
            b[i]:=b[i+1];
            b[i+1]:=z;
            q:=false;
         end;
   Until q;
   Repeat
      q:=true;
      For i:=1 to n-1 do
         If c[i]<c[i+1] then
         begin
            z:=c[i];
            c[i]:=c[i+1];
            c[i+1]:=z;
            q:=false;
         end;
   Until q;
   For i:=1 to n do
      d[i]:=a[i]+b[i]+c[i];
   {Repeat
      q:=true;
      For i:=1 to n-1 do
         If d[i]<d[i+1] then
         begin
            z:=d[i];
            d[i]:=d[i+1];
            d[i+1]:=z;
            q:=false;
         end;
   Until q;}
   Write('a = ');
   For i:=1 to n do
      Write(a[i],'  ');
   Writeln;
   Write('b = ');
   For i:=1 to n do
      Write(b[i],'  ');
   Writeln;
   Write('c = ');
   For i:=1 to n do
      Write(c[i],'  ');
   Writeln;
   Write('d = ');
   For i:=1 to n do
      Write(d[i],'  ');
   Writeln;
   Readln;
end.