Guardando questo:
codice:
procedure somma(op1,op2:integer);
In pratica dopo il nome della procedura tra parentesi devi mettere le variabili per il passaggio dei parametri dichiarando di che tipo sono, in questo caso specifico al momento di chiamare la procedura devi passare 2 parametri di tipo intero.

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.