[VIR]

Входной параметр второй фукции у тебя число, а ты записываешь туда строку.
Результат, компилятор должен матерится на несоответствие типо String & Integer
Тем более что возвращаемое значение у тя тоже стринг, а ты обявиляешь "i: Integer;"