Delphi-Quellcode:
repeat
if a = 'rest' then
begin
writeln('Falsche Eingabe');
a = 'n';
end;
until ((a <> 'j') or (a = 'n'));
mit einer while do schleife, wären einfach die Bedinungen vertauscht. Statt a auf n zuzuweisen, kannst du aber auch mit break aus der Schleife gehen, ist aber unsauber.