[lmikle]

А что не работает-то?
Там есть одна ошибка, но в большинстве случаев работать должно...

Исправленная ошибка:
стр. 21:

Код:

max := strtoint(stringgrid1.cells[0,0]); m[0] := max;

стр. 23:

Код:

t := 0;

стр. 24:

Код:

for i:=1 to 10 do