напишите программу которая ищет в нем все значения равные введенному числу

const n=20;vara:array[1..n] of integer;i,j,t,x,i1,i2:integer;beginRandomize;Writeln('Исходный массив:');for i:=1 to n do begina[i]:=Random(21);Write(a[i],' ')end;Writeln;for i:=1 to n-1 dofor j:=1 to n-i doif 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;repeati:=(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;endelse writeln('Элемент не найден');writeln;end.Pascal ABC.