задание надо написать не уменьшительном порядке методом пузырька написать алгоритм в программе
program rikiavimas;
const n= 20;
type intervalas = 1..n;
masyvas = array [intervalas] of intervalas;
var a:masyvas;
maziausias, 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);
writeln(a[i]:3);
end;
writeln;
i:=0;
repeat
{начало}
i:=i+1;
for j:= 1 to ilgis-1 do
if a[j+1]<a[j] then
begin
maziausias:=a[j+1];
a[j+1]:=a[j];
a[j]:=maziausias;
end;
if i=ilgis then keitimas:=true;
{ конец}
until keitimas;
writeln('óļīšåäźīāąķķūé ģąńńčā');
for i:=1 to ilgis do write(a[i]:3);
readln;
end.