Membuat Program Hitung Nilai Rata-Rata di Pascal

Setelah beberapa postingan tentang pascal kali ini saya akan posting kembali tentang pascal juga tentunya dan barangkali semoga bisa membanti dan bermanfaat buat teman-teman sekalian. Mohon maaf sebelumnya karena programnya saya masih menggunakan program dasar saja karena saya juga masih pemula dalam hal pascal. Berikut kodenya :

uses wincrt;
var a,i,data,nilai,total:integer;
    rata2:real;
    lagi:char;

      BEGIN
           lagi:='Y';
           while lagi='Y' DO
       

begin
     clrscr;
     writeln('Menghitung Nilai Rata-Rata');
     writeln('==========================');
writeln;

        writeln('======================================');
        write('Masukan jumlah data nilai ada berapa ? ');readln(data);
        writeln('======================================');
                       total:=0;
                       i:=0;
                       while i<data do

                       begin
                            i:=i+1;

                       writeln('========================================');
                       write('Nilai data ke ',i,' = ');readln(nilai);
                       total:=total+nilai;
                       writeln('========================================');

            end;
                rata2:=total/data;
            writeln;
                    writeln('Total Nilai = ',total);
                                   writeln('Jumlah data = ',data);
                                                   writeln('Rata-Rata nilai = ',rata2:0:2);
            writeln;
            writeln;
            writeln;
            writeln('apakah anda ingin menghitung lagi (Y/T > huruf kapital) ??');readln(lagi);
            end;end.

Sepertinya programnya panjang ya ?? tapi sebenarnya tidak juga setelah anda salin di program pascal anda. Jika terjadi kesalahan atau tidak terjadi kesalahan tetap tinggalkan komentar anda juga yaa ! Terima kasiih.