Напишите программу, которая сортирует массив по убыванию и ищет в нем все значения, равные введенному числу. pascalabc

Const n=20;   var   a: array[1..n] of integer;   i,j,t,x,i1,i2: integer; begin   randomize;   writeln('исходный массив: ');   for i: =1 to n do begin     a[i]: =random(21);     write(a[i],' ')   end;   writeln;   for i: =1 to n-1 do     for j: =1 to n-i do       if a[j]< a[j+1] then       begin t: =a[j]; a[j]: =a[j+1]; a[j+1]: =t end;   writeln('отсортированный массив: ');   for i: =1 to n do write(a[i],' ');   writeln;   write('x = '); readln(x);   i1: =1; i2: =n;   repeat   i: =(i1+i2) div 2;   if a[i]> x then i1: =(i1+i2) div 2+1;   if a[i]< x then i2: =(i1+i2) div 2-1;   until (a[i]=x)or(i1> i2);   if a[i]=x then    begin   writeln('искомый(ые) номер(а) элемента(ов): ');   while (i> 0)and(a[i]=x) do i: =i-1;   i: =i+1;   while (i< =n)and(a[i]=x) do begin write(i,' '); i: =i+1; end;   end   else writeln('элемент не найден');   writeln; end. пример: исходный массив: 15 4 16 3 7 10 3 1 18 6 18 2 7 11 10 16 2 10 7 12  отсортированный массив: 18 18 16 16 15 12 11 10 10 10 7 7 7 6 4 3 3 2 2 1  x = 10 искомый(ые) номер(а) элемента(ов): 8 9 10 

1)

var

i,k: integer;

a: array [1..14] of integer;

begin

k: =0;

for i: =1 to 14 do

begin

a[i]: =random(46)-15;

write(a[i]: 3);

if a[i] mod 2=0 then k: =i;

end;

if k> 0 then

begin

for i: =k to 13 do a[i]: =a[i]+1;

a[14]: =0;

end;

writeln;

for i: =1 to 14 do write(a[i]: 3);

end.

2)

var

i,k: integer;

a: array [1..14] of integer;

begin

for i: =1 to 14 do

begin

a[i]: =random(46)-15;

write(a[i]: 3);

end;

for i: =1 to 7 do

begin

k: =a[i];

a[i]: =a[i+7];

a[i+7]: =k;

end;

writeln;

for i: =1 to 14 do write(a[i]: 3);

end.