Дано целое число n. Сформировать массив из n целых чисел. Вывести номера трех наибольших элементов переменных массива.

randomize;
repeat
for i:=1 to n do
a[i]:=random(100)-50;
f:=false;
for i:=1 to n-1 do
begin
if a[i]>a[i+1] then
begin
f:=true;
c=a[i];a[i]=a[i+1]:=c;
end;
end;
until not f;
for i:=1 to b do begin
if a[i]<0 then write(a[i],' ');
end;

Помогите

Мда, тут тег code бесполезен...
По теме

repeat
  for i:=1 to n do
    a[i]:=random(100)-50;

Ты каждый раз массив заново генерируешь.
Отформатировал бы нормально, увидел бы.
Надо так:

for i:=1 to n do
  a[i]:=random(100)-50;
repeat

Это если ты хочешь сортировку пузырьком.
А если тебе нужны номера трёх наибольших элементов, но это делается вообще не так и сортировка тут ни при чём.