Вывод стран, входящие в первую пятерку по объему ВВП.

[Multiman]

Здравствуйте! Вообщем вот задание:

Разработать приложение. На первой странице организовать ввод десяти стран и их ВВП. На второй странице показать ВВП стран в виде гистограммы. На третьей странице вывести страны, входящие в первую пятерку по объему ВВП. Ввод стран и ВВП должен быть реализован через Stringgrid.

Первые 2 задания сделал, а вот вывести страны, входящие в первую пятерку по объему ВВП не могу.

Вот код:

type
STRANA_VVP=record
strana: string;
VVP: integer;
end;
var
Form1: TForm1;
mas_VVP: array [1..10] of STRANA_VVP;
implementation

{$R *.dfm}

procedure TForm1.FormActivate(Sender: TObject);
begin
stringgrid1.Cells[0,0]:='Страна';
stringgrid1.Cells[1,0]:='ВВП';
StringGrid1.Hide;
end;




procedure TForm1.Button1Click(Sender: TObject);// ввод стран и ВВП
var i,c:integer;
s:string;

begin
for i:=1 to 10 do
begin
stringgrid1.RowCount:=i+1;
mas_VVP[i].strana:=inputbox('Ввод стран и ВВП','Введите название страны','');
stringgrid1.Cells[0,i]:=mas_VVP[i].strana;
s:=inputbox('Ввод стран и ВВП','Введите ВВП','');
stringgrid1.Cells[1,i]:=s;
val(s,mas_VVP[i].VVP,c);
StringGrid1.Show;
end;
end;

procedure TForm1.Button2Click(Sender: TObject); // гистограмма
var
i:integer;
s:Tcolor;
begin
TabSheet2.Show;
for i:=1 to 10 do
begin
case i of
1: s:=clwhite;
2: s:=clblue;
3: s:=clfuchsia;
4: s:=clgray;
5: s:=clgreen;
6: s:=clteal;
7: s:=clnavy;
8: s:=clred;
9: s:=clpurple;
10: s:=clyellow;
end;
form1.series1.AddPie(mas_VVP[i].VVP,mas_VVP[i].strana,s);
end;
end;


Объясните пожалуйста как это сделать исходя из моего кода. Если не сложно код накидайте на Delphi, только с пояснениями основных моментов. (выводить можно куда угодно)

Заранее благодарен!

[Mad_Cat]

а вот вывести страны, входящие в первую пятерку по объему ВВП не могу.

отсортировать массив mas_VVP по убыванию ВВП и вывести первые 5

[Multiman]

А по конкретней можно?=) Я знаю что нужно отсортировать но я не знаю как это сделать( всегда с сортировкой проблема была.

[Mad_Cat]

А по конкретней можно?=)

читать тут и переделывать под себя