Написать программу которая складывает числа от 4 до 100

Принципиальная ошибка. Нет начального присваивания переменной sum. Стандарт языка Pascal НЕ ОПРЕДЕЛЯЕТ, какое значение имеет неинициализированная переменная.

var i,sum:integer;Beginfor i:=4 to 100 do  begin       sum:=sum+i;       writeln('Summa#',i,'=',sum);  end;end.