Program Faktorial dengan Pascal

Program Faktorial;
uses crt;
var n,i :integer;
hit : string;
fact : longint;
label D;

begin
clrscr;

gotoxy(29,6);textcolor(yellow);writeln('PROGRAM FAKTORIAL');
gotoxy(27,9);textcolor(green); writeln('Dibuat oleh : Muh. Ibnu FaisaL');
gotoxy(41,11);textcolor(green);writeln('M 3108107');
gotoxy(65,24);Textcolor(lightgreen);writeln('TEKAN ENTER !!!');
readln;
clrscr;
textcolor(white);
D :
clrscr;
writeln('Masukkan bilangan faktorial'); readln(n);
fact:=1;
for i:=2 to n do
fact:=fact *i;
writeln;
writeln;
textcolor(yellow);
writeln(n,'! adalah',' ',fact);
writeln;
textcolor(white);gotoxy(25,21);write('Menghitung lagi ??');
gotoxy(25,22);write('* Tekan angka 1 jika YA');
gotoxy(25,23);write('* Tekan angka 2 jika TIDAK');
writeln;
gotoxy(25,24);write('Pilihan anda =',' '); readln(hit);
if hit='1' then goto D else exit;
readln;
end.