Дана последовательность x1,x2,...,x20.Расположить элементы большие 10 по возрастанию.

uses crt;
const n=10;
var
a,c: array [1..n] of integer;
i,j,k,t: integer;
BEGIN
        clrscr;
        j:=0;
        randomize;
        write('исходный массив: ');
        for i:=1 to n do begin
                textcolor(7);
                a[i]:=random(31)-10; {составляем случайный массив "а"}
                if a[i]>10 then begin {и заодно эл-ты большие 10...}
                        textcolor(12);
                        Inc(j);
                        c[j]:=a[i]; {...запоминаем в "с" }
                end;
                write(a[i],' ');
        end;
        textcolor(7);
        for i:=1 to j-1 do {сортируем массив "с" пузырьком}
           for k:=1 to j-i do
                if c[k]>c[k+1] then begin
                        t:=c[k];
                        c[k]:=c[k+1];
                        c[k+1]:=t;
                end;
        writeln;
        write('итоговый массив: ');
        j:=1;
        for i:=1 to n do begin {опять выводим на экран тот же массив...}
                textcolor(7);
                if a[i]>10 then begin
                        textcolor(11);
                        a[i]:=c[j]; {... но уже подсовывая сортированные числа}
                        inc(j);
                end;
                write (a[i],' ');
        end;
        readln;
END.