Am Besten rückst du so ein, das begin und end immer untereinander stehen und der Code innerhalb mit einem Tab mehr
Delphi-Quellcode:
begin
...
if .... then
begin
... //Hier den Code
end;
...
end;
Für den Schleife alles in
Delphi-Quellcode:
repeat
...
WriteLN( 'Beenden (J/N)?');
ReadLn( Eingabe);
until UpperCase( Eingabe = 'N');