Сортировка массива Пузырьком(задача) Опции

[rydyak]

Дано целое число 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;

Помогите