В городе N-ске проходит конкурс на звание "Мистер большой живот". Побеждает тот, у кого объем талии больше всего. Помогите определить объем талии золотого и серебряного призера, если известно количество участников и объем талии каждого из них (все размеры талий различны)Формат ввода N- кол-во участников Больше 3, меньше 100 А[1] объем талии первого участника А[N] объем талии N-ого участника (90

Program gt;
var n,i,j,l:integer;
a:array[1..1000]of integer;
begin
readln(n);
for i:=1 to n do
read(a[i]);
for i:=1 to n-1 do
for j:=1 to n-1 do
if(a[j]l:=a[j];a[j]:=a[j+1];
a[j+1]:=l;
end;
writeln(a[1], ,a[2]);
end.
Я просто отсортировал массив по убыванию методом пузырка