per le funzionsi devi fare:

function calcmedia(totale,i:integer);
media:= totale div i; (presumo che i sia il numero di elementi e totale la loro somma)
return media
end;

Sulla funzione non sono molto sicuro di come si chiude l'intestazione mi pare sia giusta ma magari qualcuno si ricorda più di me.

Ciao.
devi dichiarare il tipo che restituirà la funzione. in questo caso, dato che si parla di media, la funzione restituisce un valore reale quindi la sintassi sarà questa:

function calcolamedia(totale,i:integer):real;

poi a differenza delle procedure devi assegnare un valore al nome della funzione quindi la funzione sarà così:

function calcmedia(totale,i:integer):real;
begin
calcmedia:=totale div i; CALCMEDIA è il nome della funz.
end;