[PASCAL] Passaggio di parametri a procedure

[multififa]

perche il valore di n e m immessi dall'utente nella prima procedure non riescono a passare nella 2 procedura

program elezioni;

type
tabella= ARRAY [1..80, 1..90] OF integer;
var
sezione:tabella;
n:integer;
m:integer;
y:integer;
i:integer;

Procedure inizia (n,m:integer);
const
maxcolonne=20;
maxrighe=20;
begin
 repeat
 Writeln ('inserisci il numero dei candidati');
 Readln (n);
 until (n<=maxcolonne) and (n>=1);
 repeat
 Writeln ('Inserisci il nimero delle sezioni');
 readln (m);
 Until (m<=maxrighe) and (m>=1);
 writeln (n,m);
 end;


 procedure leggi (i,y,n,m:integer);
  begin
 For i:=1 to n do
 for y:=1 to m do begin
 writeln ('Inserisci i voti del candidato ', i,' della n. ',y);
 readln (sezione [i,y]);
 end;
 end;

begin
inizia (n,m);
leggi(i,y,n,m);
end.