Задача на записи (Paskal)

[Paskal???]

Помогите решить задачку!
База данных игрушек содержит названия игрушек, цену и проданное кол-во. Написать прогу, определяющую самую популярную игрушкуи вырученные за нее деньги, а так же игрушку, которой наиболее выгодно торговать. Базу данных задать самостоятельно (15 записей)
Буду очень признателен. Спасибо.

[Stilet]

Наработки есть? показывай.

[pushok]

uses crt;
const n=15;

type
toys=record
title:string;
price,count:integer; {при желании можно сменить тип на word}
end;

var
d:array [1..n] of toys;
i,e,best:integer;
begin
clrscr;
randomize;

{ввод данных}
for i:=1 to n do
 begin
 writeln;
 writeln('Toy # ',i);
 write('Title: ');
 readln(d[i].title);
 write('Price: ');
 readln(d[i].price);
 write('Count: ');
 readln(d[i].count);
 end;

{поиск самой популярной}
best:=1;
for i:=2 to n do
 if (d[i].count>d[best].count) then best:=i;
writeln('The most popular toy is ',d[best].title,'. Moneys = ',d[best].count*d[best].price);

{...}

readln;
end.

Остальное по аналогии.

[Paskal???]

Спасибо большое! Будем пробовать)