Delphi Goto

program ZP;

{$APPTYPE CONSOLE}

uses
  SysUtils, Crt;

var
    Total, Gaji, Tunjangan: real;
    Jumlahanak: integer;
    Keterangan : string[25];
    Y: char;

Label ulang;

Begin
    Ulang:
    clrscr();
    textcolor($0a);
    Write('Masukkan Gaji: ');
    read(Gaji);
    Write('Masukkan jumlah anak: ');
    read(Jumlahanak);
    Tunjangan := 0.25 * Gaji + Jumlahanak * 30000;
    Total := Gaji + Tunjangan;
    Keterangan := 'Karyawan Teladan';
    Writeln('Gaji bulanan= Rp.', Gaji);
    Writeln('Tunjangan = Rp. ', Tunjangan);
    Writeln ('Total gaji = Rp. ', Total);
    Writeln('Keterangan = ', Keterangan );
    Write(' Mau menghitung lagi? [Y/T]', #10#13, '>>>');
    Y := readkey;
if (upcase(y) = 'Y') or (LowerCase(y) = 'y') then
    goto ulang;
    Readln;
end.