Вывести три введённых числа в порядке возрастания, блок-схема. Прошу, помогите, люди...

Program DaNNuu;
uses crt;
const n=3;
var
a:array [1..n] of integer;
i,j,min,temp:integer;
begin
randomize;
{создание массива}
writeln('Элементы массива:');
for i:=1 to n do
    begin
      a[i]:=random(101)-50;
      write (a[i]:5);
    end;
{сортировка массива}
for i:=1 to n-1 do
    begin
      min:=i;
      for j:=i+1 to n do
        if a[min]>a[j] then
          min:=j;
      temp:=a[i];
      a[i]:=a[min];
      a[min]:=temp;
    end;
writeln();
{вывод массива}
writeln('Результат сортировки:');
for i:=1 to n do
    write(a[i]:5);
end.