дописать алгоритм в программе методом вставки я правильно написал а ?
program rikiavimas; const n = 20; type intervalas = 1..n; masyvas = array [intervalas] of intervalas; var a:masyvas; skaicius, indeksas, ilgis, j:intervalas; keitimas: boolean; i:0..n; begin randomize; Writeln('введите длину массива неболеше 20:'); Readln(ilgis); writeln('разбросаный :'); for i:= 1 to ilgis do begin a[i]:=1 +random(20); write(a[i]:3); end; writeln; {начало алгоритма} begin for j:= 1 to ilgis-1 do for i:=j+1 to ilgis do if a[i]<a[j] then begin skaicius:=a[i]; a[i]:=a[j]; a[j]:=skaicius; end end; {конец алгоритма моего} writeln('вот неразбросаный'); for i:= 1 to ilgis do write(a[i]:3); readln end.