[pascal]PROCEDURE

[multififa]

Non so come devo scrivere le procedure nel corpo del programma
mi potete aiutare. Risolvetemi questo programma

Program risuelettorali;
Type
tabella= ARRAY [1..80, 1..90] OF integer;
Var
sezione:tabella;
i:integer;
y:integer;
totale1:integer;
n:integer;
m:integer;

PROCEDURE   inizia (m:integer; n:integer; sezione:tabella; y:integer; i:integer);
BEGIN
Writeln ('Inserisci il numero delle candidati');
Readln (n);
Writeln ('Inserisci il numero dei sezioni');
Readln (m);
For Y:=1 to n do
begin
for i:=1 to m do
begin
sezione[i,y]:=0;
end;
end;
END;

PROCEDURE  Leggi (y:integer; i:integer; n:integer; m:integer; sezione:tabella; totale1:integer);
BEGIN
For Y:=1 to n do
Begin
for i:=1 to m do
begin
Writeln ('Inserisci i voti della sezione n. ', i, 'del candidato n. ', y);
readln (sezione[i,y]);
totale1:=(totale1+sezione[i,y]);
end;
end;
END;

PROCEDURE  Scrivi (y:integer; i:integer; n:integer; m:integer; sezione:tabella);
BEGIN
write ('Sez');
for Y:=1 to n do
begin
write (' Cand':7, y);
end;
writeln;
 For i:=1 to m do
begin
     write (i);
for y:=1 to n do
begin
Write (sezione [i,y]:8);
end;
writeln;
end;
END;

PROCEDURE  tot (y:integer;I:integer; m:integer; n:integer; totale1:integer; sezione:tabella);
Var
percentuale:real;
totale:integer;
BEGIN
For Y:=1 to n do
begin
totale:=0;
for i:=1 to m do
begin
totale:=totale+sezione[i,y];
end;
percentuale:= ((totale*100)/totale1);
writeln;
writeln ('Il totale del candidato n.',y,' e di ',totale, ' percentale ', percentuale:2:2);
end;
END;
Begin 
Nel corpo del programma come posso richiamare le procedure   

end.