помогите с delphi, выводит ошибку. Как решить задачу?

Ругается на тип переменной Н - верхняя граница цикла. Она должна быть целочисленной (инт) не вещественной (дабл) . Объявите ее как инт и используйте функцию стр то инт.