P. mncari nilai ahir semester

uses crt;
var
TM,MAN,TT,MID,NS,Nas:real;
n,i :integer;
Nama,Nim : string;
Masuk_Lagi : Char;
begin
Masuk_Lagi :='Y';
while Masuk_Lagi='Y' do
begin
clrscr;
writeln('                     ******* Program By: Paskal Hutapea *******');
writeln;
write('Masukkan jumlah data : ');
readln(n);
i:=0;
Writeln;

while i
begin
i:=i+1;
write('Nama                 : ');
readln(Nama);
write('Nim                  : ');
readln(Nim);
write('Tatap muka           : ');
readln(TM);
write('Tugas Mandiri        : ');
readln(MAN);
write('Tugas Terstruktur    : ');
readln(TT);
Write('Mid                  : ');
readln(MID);
Write('Nilai ujian Semester : ');
readln(NS);
end;
Nas:=((TM/2)+(MAN/2)+TT+(MID*2)+(NS*3))/5;
writeln;
writeln('Nilai Ahir           :',Nas:8:2);
writeln;
Write('Masuk_Lagi (Y/T) ? : ');
readln(Masuk_Lagi);
end;
readkey;
end.