Пока вы тут думаете я чтото сделал :p
http://depositfiles.com/files/lzzga275k
Правдв честно признаюсь прграмировать я не умею и за MidletPascal не так давно сел. Минусов в этом интерпретаторе много но когда под рукой только телефон можно и с ним побаловаться
.