Використовуючи цикл repeat написати прогу яка вимагае вводу пароля .якщо пароль правильний то заповнюе весь екран.

М

Пиши на Русском языке.

Используя цикл repeat написать программу, которая требует ввода пароля. Если пароль правильный, то заполняет весь экран.

В чем проблема?

Чем заполняет?

Добавлено через 14 мин.

Program Password;
Uses crt;
Const
  Pass='Pascal';
Var
  EnterPass:string;
  fl:boolean;
Begin
  fl:=false;
  repeat
    clrscr;
    write('Enter Password: ');
    readln(EnterPass);
    clrscr;
    If EnterPass=Pass then
      Begin
        writeln('Access Resolved'); {Вместо этой строчки можно вставить какое-то заполнение}
        readln;
        fl:=true;
      End
      else
      Begin
        writeln('Access Locked');
        writeln('Try again');
        readln;
      end;
  until fl;
End.