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

[cooler]

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

[cooler]

Вот обещанные вопросы: (я конечно понимаю что вам надоело разжевывать мне всё,но всё же)
1)

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

Как я понимаю, low и high здесь от самого маленького к самому большому.
2) Практически полностью непонятна процедура
из-за функций _toint и _copy (НЕ Понятно что делают)
Как я понял эта процедура считывает игроков из файла

procedure init_footballers(const filename: string);

  function _toint(s: string): integer;
  var _result, _error: integer;
  begin
    val(s, _result, _error);
    _toint := _result;
  end;

  function _copy(var s: string; count: integer): string;
  begin
    _copy := copy(s, 1, pred(count));
    delete(s, 1, count);
  end;

var
  f: text;
  s: string;
  f_n, f_t, f_p: string; f_a, f_c: integer;
begin
  assign(f, filename); reset(f);

  count_footballers := 0;
  while not seekeof(f) do begin
    inc(count_footballers);
    readln(f, s);

    f_n := _copy(s, pos(' ', s));
    f_a := _toint(_copy(s, pos(' ', s)));
    f_t := _copy(s, pos(' ', s));
    f_p := _copy(s, pos(' ', s));
    f_c := _toint(s);

    new(
      footb_array[count_footballers],
      init(f_n, f_a, f_t, f_p, f_c)
    );
  end;
  close(f);
end;