Не работает функция Опции

[Игорь]

Написал функцию (находит ср. арифметическое), вставил в программу, не работает. Из той же функции сделал программу, работает как надо.

function medsum:real;
var
a,med:real;
n,i:word;
begin
write('Введите кол-во слагаемых: ');
readln(n);
for i:=1 to n do
 begin
   write('Введите ',i,' слагаемое: ');
   readln(a);
   med:=med+a;
 end;
a:=n;
writeln('Среднее арифметическое: ',(sum/a));
readln;
end;

[volvo]

Написал функцию (находит ср. арифметическое), вставил в программу, не работает.

1000 раз говорено: ВСЕ переменные должны быть инициализированы. В случае, если все происходит в программе без подпрограмм - компилятор Паскаля берет на себя инициализацию (только глобальных переменных). Локальные (описанные внутри процедуры/функции) хранят мусор, заполнить их корректным начальным значением - проблема программиста, то есть, твоя...