нужно дороботать прогу плииз

[Enerdgazer]

Надо соединить сортировку массива с этим куском

count := 0;
  First := 1;
  Last := n;
  Found := False; {Элемент не найден}
  
  repeat {Повторять поиск}
  i := (First + Last) div 2; {Разделить на две части}
  if a[i] = m then Found:=True
    else
      begin
        if a[i] > m then First := i+1 {Искать элемент в правой части}
        else Last := i-1; {Искать элемент в левой части}
      end;
  count := count+1; {Увеличить счетчик числа итераций}
  until (Found) or (First>Last); {Завершить, если найдется искомый элемент или будет просмотрен весь массив}
  
  if Found then Writeln('Искомый элемент ', m,' в массиве занимает ',I,'-ю позицию')
  else
  Writeln('В массиве нет искомого элемента ',m);
  Writeln('Поиск выполнен За ',count,' итераций');
  Writeln('Завершить>');

[Stilet]

Хм... Ну в начале напиши:

for i:=1 to n do  for j:=1 to n do
 if a[i]<a[j] then begin count:=a[i];a[i]:=a[j];a[j]:=count; end;