Вмассиве 30 чисел, заполняются случайными числами из интервала (5; 20) упорядочить по возрастанию, на экран вывести первоначальный массив и

Program massive;varQW:array[1..30] of integer;min, i, a, b, c: integer;begin //погнали//задаём массив случайными числами из [5; 20]//randomize;//запускаем генератор случайных чиселfor i:=1 to 10 doQW[i]:=random(15)+5;//for i:=1 to 30 dowrite(QW[i],' ');writeln(' ');////чередуем по возрастаниюfor a:=1 to 30 dobeginmin:=32767;for i:=a to 30 doif(QW[i]<min) thenbeginmin:=QW[i];b:=i;end;c:=QW[b];QW[b]:=QW[a];QW[a]:=c;end;////вывод массиваfor i:=1 to 30 do write(QW[i],' ');read(a);end.//RADIOFAN