Проверка корректности введенного пароля - Turbo Pascal

Формулировка задачи:

Program abc;
Uses Crt;
Var I:string;
Label loop;
Begin
    Writeln('Введите пароль');
    Read(I);
    loop;
    If I<>'password' then begin
    Writeln('Bad Password');
    Goto loop;
    end;
    If I='password' then Writeln('Good Password');
    Readkey;
end.

Как сделать так чтоб если I не было равно password то метка возвращала бы пользователя в начало программы и ему пришлось вводить пароль заново и так до тех пор пока он не введет правильный пароль . С помощью циклом осуществил данную задачу , теперь хотелось бы попробовать с метками сделать

Решение задачи: «Проверка корректности введенного пароля»

Листинг программы

Program abc;
Uses Crt;
Var I:string;
Label loop;
Begin
    loop:
    Writeln('Г‚ГўГҐГ¤ГЁГІГҐ ГЇГ*Г°Г®Г«Гј');
    Read(I);
    If I<>'password' then begin
    Writeln('Bad Password');
    Goto loop;
    end;
    If I='password' then Writeln('Good Password');
    Readkey;
end.

Объяснение кода листинга программы

В данном коде на Turbo Pascal происходит проверка корректности введенного пароля. Программа использует цикл loop, который продолжается до тех пор, пока не будет введен неправильный пароль или пока не будет достигнут лимит ввода.

Writeln('Г‚ГўГҐГ¤ГЁГІГҐ ГЇГ*Г°Г®Г«Гј') - выводится строка с символами, которые представлены в виде кода.
Read(I) - считывается введенная пользователем строка и сохраняется в переменной I.
If I<>'password' - проверяется, равен ли введенный пароль password. Если нет, то выполняется следующий блок кода.
Writeln('Bad Password') - выводится сообщение Неправильный пароль.
Goto loop; - программа переходит обратно к началу цикла, чтобы проверить следующий пароль.
If I='password' - проверяется, равен ли введенный пароль password. Если да, то выполняется следующий блок кода.
Writeln('Good Password') - выводится сообщение Хороший пароль.
Readkey; - считывается нажатие клавиши для выхода из цикла.