Object pascal, Какую тему выбрать? Опции

[cooler]

Не подскажете какую тему выбрать для разработки объектно- ориентированной программы?
Нужно в общем создать какую-нибудь программу с перспективой перенесения её в Delphi.
Стандартные темы нам предложили не так уж что бы интересные: шашки, дурак, типа озера с щуками чё то.
Может кто подскажет что-нибудь поинтереснее. Нужно в общем, что бы наследование было, описать свойства и т.п
Я вообще то футболом увлекаюсь, но сомневаюсь, что здесь можно что- то придумать связанное с этим.....

[cooler]

Да,sorry, raschet - функция
Начну, с маленького введения в футбольную жизнь.
Во всех футбольных комп. играх коэффициент игрока - от 0 до 100 (100 - предел, которого не
может быть)
Цена игрока в нынешнем футболе: коэффициент,например, 90 стоит игрок ~ 19000000 евро
Чем меньше коэффициент, те меньше цена, поэтому так много условий.

С возрастом я сделал так: игрок моложе 23 лет=> цена чуть-чуть больше.
Чтобы удобнее было и нагляднее я сделал целочисленным типом цену, поэтому функция немного
корявая. ( с вещественным можно было бы молодым игрокам цену +10%)

function TFootballer.Raschet(age,k:byte;price:word):word;
begin
if k<30 then price:=k*5
	   else if k<50 then price:=k*30
		else if k<80 then price:=k*70
		       else  price:=k*210;

if age<=22  then  if k<50 then price:=price+200
			      else if k<80 then price:=price+300
				 else price:=price+500;
end;

Итак получается цена коэф. 90 - 18900 (не хватает 3х нулей, ну это при выводе
на экран поправлю)