Nilai rata rata "pascal" prosedure

Program dibawah ini adalah program menghitung nilai rata-rata dengan menggunakan prosedure, prosedure dibawah ini adalah prosedure dari parameter masukan..

PROGRAM TIGA_SATU;
USES CRT;
VAR
   N,A,BILANGAN,TOTALBILANGAN : INTEGER;
   RATA2                      : REAL;
PROCEDURE NILAIRATA2(TOTALBILANGAN,N : INTEGER);
BEGIN
     RATA2 := TOTALBILANGAN/N;
     END;
     BEGIN
     CLRSCR;
     WRITE('MASUKAN JUMLAH BILANGAN : '); READLN(N);
     TOTALBILANGAN := 0;
     FOR A:=1 TO N DO
     BEGIN
     WRITE('MASUKAN BILANGAN KE ',A,' : '); READLN(BILANGAN);
     TOTALBILANGAN :=TOTALBILANGAN+BILANGAN;
     END;
     NILAIRATA2(TOTALBILANGAN,N);
     WRITELN('NILAI RATA - RATA : ', RATA2:1:0);
     READKEY;
END.