Написать программу, которая требует у вас пароль, например 111, и если пароль правильно, то заполняет все строки экрана сообщением «МОЛОДЕЦ!» . Если после пятой попытки пароль всё равно не верен, выйти из программы — Pascal(Паскаль)

program cikl_bez_konza;
uses crt;
label 1, 2, 3, 4, 5;
var a, i:integer;
begin
clrscr;
writeln('Введите пароль');
readln(a);
If a=111 then goto 1
else goto 2;
2:For i:=1 to 30 do
begin
writeln('НЕ ВЕРНО');
end;
readln(a);
If a=111 then goto 1
else goto 3;
3:For i:=1 to 30 do
begin
writeln('НЕ ВЕРНО');
end;
readln(a);
If a=111 then goto 1
else goto 4;
4:For i:=1 to 30 do
begin
writeln('НЕ ВЕРНО');
end;
readln(a);
If a=111 then goto 1
else goto 5;
5:For i:=1 to 30 do
begin
writeln('НЕ ВЕРНО');
end;
readln(a);
If a=111 then 
begin
writeln('МОЛОДЕЦ!');
end;
If a<>111 then 
begin
writeln('НЕ ВЕРНО уже пять раз!!!!!');
end;
1:writeln('МОЛОДЕЦ!');
readln;end.