Repeat … until

Ogólny schemat:

repeat

//Instrukcje wykonywane przez pętle

until Warunek;

Pętla wykonuje instrukcje w niej zawarte, po czym sprawdza czy Warunek jest spełniony. Jeśli jest prawdziwy, pętla przerywa działanie, jeśli nie, kontynuuje je. Istotnym faktem jest co najmniej jednorazowe wykonanie instrukcji w niej zawartych.

Przykład:

uses
    Crt;

var
    Haslo : string;

begin
    ClrScr;
    repeat
        WriteLn('Aby wejśc dalej podaj hasło!');
        ReadLn(Haslo)
    until Haslo = 'haslo'; //Sprawdzamy czy haslo  jest poprawne
    WriteLn('Haslo poprawne');
end.