Membuat Program Seleksi Kelulusan Siswa dengan Free Pascal

Program seleksi_kelulusan_siswa;
Label
Atas;

Var
N:integer;
Lagi :char;
Begin
Atas :
Write('masukkan nilai siswa = ');
Read(N);
If N >= 60 Then
Begin
Write('siswa dinyatakan lulus')
End
Else
Begin
Write('siswa dinyatakan tidak lulus');
End;
Readln;
Readln;
Write('Apakah anda ingin seleksi siswa lagi? ');
Read(Lagi);
If Lagi = 'Y' Then
Goto atas;
End.