{$GOTO ON} // one way to enable the GOTO keyword

var
  i : Integer;

label
  GotoLabel;

begin
  for i := 1 to 10 do begin
    Writeln('i = ',i);

    if i = 4 then Goto GotoLabel;   // Conditionally exit the loop
  end;

  Writeln('The loop finished OK');
GotoLabel:
  Writeln('Loop finished with i = ',i);
end.