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

[cooler]

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

[cooler]

Хотелось бы по делу...

Попытка - не пытка.
Вот конструктор Игрока, процедура для расчёта коэф. команды,процедура изменений
в составе.
Что нужно написать вместо вопросов, чтобы значение переменной к передавалось в процедуру
расчёта коэффициента?

constructor TFootballer.init(AName: string; AnAge: integer;
	    team, position: string; Ak: byte);
var
  p: TPosition;
  i: integer;

begin
  inherited init(AName, AnAge);
  for p := low(Tposition) to high(TPosition) do
    if s_position[p] = position then begin
      code_position := p;
    end;

  for i := 1 to max_teams do
    if s_team[i] = team then begin
      code_team := i;
     end;
   k := Ak;??????????????????????????????
end;


procedure Tteam.Koef;
var i,j:byte;
    sumk,teamk:integer;
begin
?????????????????????
?????????????????????

for i:=1 to 11 do
sumk:=0;
sumk:=sumk+tk;
teamk:=trunc(sumk/11);
writeln('TEAM KOEF: ',sumk);
end;



procedure TTeam.changes;
var f,sec,secv: byte;
    kk:char;
begin
repeat
write('First player: ');
readln(f);
write('Second player: ');
readln(sec);
clrscr;
secv:=70;
squad[secv]:=squad[f];
squad[f]:=squad[sec];
squad[sec]:=squad[secv];
team.koef;
team.squad_print;
write('Continue ? [Y/N] ');readln(kk);
writeln;
until(kk='n') or (kk='N');
end;