График массива и сортировка по возрастанию

const n=12;
type arra = array[0..n] of integer;
var  poss,i,j,max,inde: integer; m1,m2,Ina: arra;
const a=-10;
const b=200;
//сортировка
procedure sort(var yarra: arra; n:Integer);
var i,j,k: Integer;
begin
  for i := n downto 2 do
    for j := 0 to i - 1 do
      if yarra[j] > yarra[j + 1] then
      begin
        k := yarra[j];
       yarra[j] := yarra[j + 1];
        yarra[j + 1] := k;
      end;
      end;
 
 
 
//график
procedure graph(var m2: arra; l:Integer);
var flag:Boolean; i,j:Integer;
begin;
flag:=false;
    for i:=b downto a do
    begin
      for j:=0 to l do
      begin
        if m2[j] = i then
        begin
        flag:=true;
          if i = 0 then
          begin
            if j <> 0 then
            write(i:6, '|');
            write('-'*j);
            write('*');
            write('-'*(30 -j));
            writeln('> i');
          end
          else
          begin
            write(i:6);
            if j <> 0 then
              write('|');
            writeln('':j*2, '*');
          end;
        end;
      end;
      if not flag then
      begin
        if i = 0 then
          writeln(i:6, '|', '-'*30, '> i');
      end;
      flag:=false;
    end;
end;
//убирает двойной 0
function inarr(var arr:arra; val:integer): boolean;
var i:integer; stop:boolean;
begin
  stop:=false;
  for i:=0 to 12 do
    if arr[i] = val then stop:=true;
  inarr:=stop;
  
end;
begin
writeln('Индекс (i)':26, 'Значение M[i]':16);
  for i:=0 to n do
    begin
      repeat
      poss:=Random((b-a)+1)+a;
      until (not inarr(m1, poss));
      m1[i]:=poss;
      writeln(i:18, m1[i]:16);
    end;
writeln;
//поиск максимума
max:=m1[0];
for i:=0 to n do
  begin
    if m1[i] > max then
      begin
      max:=m1[i];
      inde:=i;
    end;
  end;
writeln('MAX M1[',inde,']=', max);
writeln;
m2:=m1;
sort(m1, n);
for i:=0 to n do
  for j:=0 to n do
   begin
      if m2[i] = m1[j] then
        Ina[j]:= i;
    end;
writeln(); 
graph(m2, n);
writeln(); 
writeln(m1);
end.