Program Mencari Nilai Rata-Rata

uses crt;
var n: integer;
    i,j: real ;

procedure NilaiRerata(i,j:real;var n: integer);
begin
i:= i+1;
j:=i/n;
end;
{program utama}
begin
clrscr;
begin
clrscr;
write('Jumlah data : '); readln(n);

while  1 >= n do
write('masukan angka: '); readln(i);
NilaiRerata(i,j,n);
writeln('Jumlah rerata Adalah : ',j:0:2);
end;
readkey;
end.





------------------------------------------------------------------------------------------------
program mencari_rata2;
uses crt;
var
Rata:real;

procedure Rata_Rata(Rata:real);
var
n,x,i,tot :integer;
ulang:char;

begin
clrscr;
{write('Masukkan Jumlah Perulangan : ');readln(n);}
tot:=0;
i:=0;
writeln;
repeat
    begin
    i:=i+1;
    write('Masukkan bilangan ke-',i,' : ');readln(x);
    tot:=tot+x;
    write('Masukan lg : ');read(ulang);
    end;
until (ulang='T') or (i>9998);
Rata:=tot/i;writeln;
Writeln('Rata-rata : ',Rata:0:2);readln;
end;

begin
Rata_Rata(Rata);
readkey;
end.