Логин и пароль

[Cryptic22]

Как сделать чтобы программа закрывалась только если введен пароль и логин верно. У меня получается только в until либо пароль либо логин.

Program pass;
Var a,b,c,h:string;


    
Begin


a:='admin';
b:='pass';

Repeat

Write('Введите логин:');
Readln(c);

if(c<>a)then

Write('Введите пароль:');

if(c=a) or (h=b)then

Write('Введите пароль:');
Readln(h);

if (c<>a) or (h<>b)then
Writeln('Вы ввели неправильно, логин или пароль!')

else
Writeln('Вы успешно зашли!');

Until (c=a) or (h=b);

End.

[Аватар]

Repeat
  Write('Введите логин:');
  Readln(c);
  if c<>a then Continue;
  Repeat
    Write('Введите пароль:');
    Readln(h);
  until h=b;
Until c=a;

А зачем логин и пароль? Логин в базе для идентификации учетной записи пользователя, хеш пароля для доступа пользователя по этой учетной записи. А у тебя это просто указание двух слов забитых в программе ))

[Serge_Bliznykov]

Сообщение от Cryptic22

Until (c=a) or (h=b);

Until (c=a) and (h=b);