Построить блок-схему по коду

uses crt;
var
  A : array [1..10] of integer;
  indexs : array [1..10] of integer;
  B: array [1..10, 1..10] of integer;
   i, j, n, m ,k: integer;
   new: boolean;
   ci:integer;
   cj:integer;
   begin
   for i:=1 to 10 do
   begin
        write('Введите числа ');
        readln(A[i]);
   end;
   K:=1;
   for i:= 1 to 10 do
   begin
        Write(A[i], ' ');
   end;
   writeln;
   ci:=1;
   cj:=1;
   B[1,1] := A[1];
   for i:=1 to 10 do
       indexs[i] := 1;
   for i:=2 to 10 do
   begin
        for j:=1 to ci do
        begin
             cj := indexs[j];
             if (B[j, 1] <> A[i]) then
             begin
                  new := true;
             end;
             if (B[j, 1] = A[i]) then
             begin
                  new := false;
                  cj := cj + 1;
                  indexs[j] := cj;
                  B[j, cj] := A[i];
                  break;
             end;
        end;
        if (new) then
        begin
             ci := ci + 1;
             B[ci, 1] := A[i];
        end;
   end;
   
   for i:=1 to 10 do
   begin
       for j:=1 to 10 do
           write(B[i,j], ' ');
       Writeln;
   end;
end.