Program Yes No Question

program Mean_YesNoQuestion;
uses wincrt;
var
   r,n:byte;
   sum,mean: real;
   x : array[1..100] of real;
   leave: char;
begin
     leave:= 'N';
     while leave='N' do
begin
     write ('jumlah data yang riskha masukkan = '); readln (n);
     writeln;
     sum:=0;
     for r:=1 to n do
begin
     write('nilai data ke- ',r,' ','=','  '); readln (x[r]);
     sum:= sum+ x[r];
     end;
     mean:=sum/n;
     writeln;
     writeln ('jumlah data yang telah riskha masukkan adalah  ',n);
     writeln;
     writeln ('sum nilai data adalah ',sum:6:2);
     writeln;
     writeln ('mean nilai data adalah  ',mean:6:2);
     writeln;
     writeln ('do you want to leave this program? (Y/N) ? ');
     readln(leave);
     end;
end.