Немогу выполнить задание

Pascal, Delphi, Lazarus Lazarus
#21

Можете скинуть готовый код?

#22

Так что?

#23

Да ну, так неинтересно )
Выше есть вся нужная инфа о том, что надо сделать и куда копать.