Пароль

Program ent_par;
Uses CRT;
Var
Parol: string;
I: integer;
Begin
textbackground(6);
Clrscr;
window(1,1,80,2);
textbackground(8);
clrscr;
gotoxy(15,1);
textcolor(white);
writeln('Программа для проверки введенного пароля');
window(20,5,50,10);
textbackground(4);
clrscr;
Parol:='';
Writeln ('Введите пароль');
For I:=1 to 7 do
Begin
textcolor(11);
Parol:=parol + readkey;
Write ('*');
End;
Writeln;
If parol='1234567'
then
begin
window(40,15,80,25);
textbackground(3);
gotoxy(1,1);
writeln ('Проходите!!!')
end
Else
begin
window(40,15,80,25);
textbackground(4);
clrscr;
gotoxy(1,1);
writeln ('Пароль набран не верно! ');
end;
readkey;
end.

Program ent_par;
Uses CRT;
Var
Parol: string;
I,k: integer;
Begin
textbackground(6);
Clrscr;
window(1,1,80,3);
textbackground(8);
clrscr;
gotoxy(15,1);
textcolor(white);
writeln('Программа для проверки введенного пароля');
gotoxy(15,2);
Writeln ('Введите пароль, у Вас 3 попытки');
window(20,5,50,10);
textbackground(4);
clrscr;
repeat
Parol:='';
For I:=1 to 7 do
 Begin
  textcolor(11);
  Parol:=parol + readkey;
  Write ('*');
 End;
k:=k+1;
Writeln;
If parol='1234567' then
 begin
  clrscr;
  writeln ('Проходите!!!');
  readkey;
 end
Else
 begin
  if k<3 then
   begin
    writeln ('Пароль набран не верно! Повторите, осталось попыток ',3-k);
    readkey;
    clrscr;
   end
  else
   begin
    writeln ('Вы использовали все попытки, программа завершена');
    readkey;
    exit;
   end;
 end;
until(parol='1234567')or(k>3);
end.