Проверка корректности введенного пароля - 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 то метка возвращала бы пользователя в начало программы и ему пришлось вводить пароль заново и так до тех пор пока он не введет правильный пароль . С помощью циклом осуществил данную задачу , теперь хотелось бы попробовать с метками сделать

Код к задаче: «Проверка корректности введенного пароля - Turbo Pascal»

textual
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.

13   голосов, оценка 4.308 из 5


СОХРАНИТЬ ССЫЛКУ