GiGi Actual code on Pascal

program GiGi_Song;
var color, gigi, you, _end: integer; us, together, homeIsWhatWeEarn: boolean; game: string;
procedure print(a: string);
begin
    writeln(a)
end;
procedure trace(a: string);
begin
    writeln(a)
end;
label me;
begin
    gigi := 2;
    you := 1;
    us := true;
    together := true;
    homeIsWhatWeEarn := true;

    color := 0;

    print('Cry');
    trace('Sorrow');

    _end := gigi - you;

    writeln('Whats a game with no pleasure ?');
    readln(game);

    repeat
        if (homeIsWhatWeEarn = true) then
            goto me;
    until us = together;

    me: writeln('Press RETURN')
end.