Programın girişinde şifre sorulacak eğer kullanıcı şifreyi üç kez yanlış girerse

Programın girişinde şifre sorulacak eğer kullanıcı şifreyi üç kez yanlış girerse program sonlanacak.

uses crt;
var
a,sayi,sayi1,i:integer;
sifre:string;
begin
clrscr;
a:=1;
while a<4 do begin
a:=a+1;
write(‘Hoşgeldiniz...Programa girmek için şifreyi gir:’);readln(sifre);
if (sifre=’123a’) then begin
writeln(‘şifreniz doğru programı kullanabilirsiniz’);break;end
else writeln(‘şifreniz yanlış lütfen doğru şifreyi giriniz:’);end;

if (sifre<>’123a’)then
halt;
writeln(‘sayıyı gir:’);readln(sayi);
for i:=1 to sayi do
begin
sayi1:=sayi mod 16;
sayi:=sayi div 16;
if (sayi1<10) then
write(sayi1)
else if (sayi1=10) then
write(‘A’)
else if (sayi1=11) then
write(‘B’)
else if (sayi1=12) then
write(‘C’)
else if (sayi1=13) then
write(‘D’)
else if (sayi1=14) then
write(‘E’)
else if (sayi1=15) then
write(‘F’);
if (sayi<16) then break;
end;
writeln(sayi);
readln;
end.

Linkback: https://www.buyuknet.com/programin-girisinde-sifre-sorulacak-eger-kullanici-sifreyi-uc-kez-yanlis-girerse-t8637.0.html