Program Pascal Login

program ProgLogin;
uses wincrt;
label atas;
var
   username:string[20];
   password:integer;

begin
     atas:
     clrscr;
     gotoxy(18,8);
     writeln('masukan nama dan nim kamu');
     gotoxy(22,10);
     write('Nama kamu:');readln(username);
     gotoxy(22,11);  
     write('NIM kamu:');readln(password);

     if (username='Liliek') then
     begin
          if (password=3333) then
          begin
               clrscr:
               gotoxy (27,1);
               writeln('Login Success, Nama dan Nim kamu Valid');
           gotoxy (27,2);
               writeln('======================================');
               gotoxy(20,10);
               writeln('tekan enter untuk keluar');
               readln;
               goto atas;
          end else begin
               gotoxy(18,15);
               writeln('Maaf Nim kamu salah, mohon cek dan enter untuk coba lagi');
               readln;
               goto atas;
          end;
     end else
     begin
          gotoxy (18,15);
          writeln('Maaf nama kamu salah, mohon diingat dan enter untuk coba lagi');
          readln;
          goto atas;
     end;
end.