вычислить сумму квадратов чисел от одного до n

вы используете inc что подсчитывает количество а сумму тут надо было написать sum:=sum+i*i;

Это тоже самое. Процедура inc, принимающая один аргумент, увеличивает его на единицу (инкрементирует). А если передать два аргумента, то увеличивает первый аргумент на то количество, которое указано во втором аргументе. Ваша запись тоже верна.