Ошибка: Встречено 'end', а ожидалось ';'

Program User1337;
uses CRT;
var
Chelp,User1,User2,User3,User1_2,User2_2,User3_2,NewLog,NewPass,Pass1,Log1,EnterPass,EnterLog,ACA,EnterHelp,A,B:string;
label 0,1;
begin
0:textbackground (black);
textcolor (white);
User1:='Admin';
User2:='Unknown';
NewLog:=0;
NewPass:=0;
ACA:='unknown';
Chelp:='Chelp';
EnterHelp:='Chelp';
A:=1;
B:=1;
  begin
    writeln ('Добро пожаловать в операционную систему');
    writeln ('Все права защищены.');
  end;
1:repeat
    begin 
       writeln ('Регистрация Нового Пользователя');
       writeln ('Введите желаемый Логин');
       readln (NewLogin);
       writeln ('Отлично, ',NewLog, 'Теперь введите пароль');
       readln (NewPass);
       writeln ('Поздравляем, Вы успешно зарегистрировались.');
       NewLog:=Log1;
       NewPass:=Pass1;
       goto 2;
    end;
2:repeat
   begin
      writeln ('Вход в систему');
      writeln ('Пожалуйста войдите в систему со своим логином и паролем');
      writeln ('Введите ваш логин');
      readln (EnterLog);
      if EnterLog=Log1
      then
        writeln ('Логин успешно введён')
      else
        writeln ('Неверный логин! Повторите попытку.');
        goto 2;
      writeln ('Введите ваш пароль');
      readln (NewPass);
      if NewPass=Pass1
      then
        writeln ('Вы успешно вошли в систему');
        goto 3;
      if EnterLog<>Log1
      then
      goto 2
    end;
3:begin
    writeln ('Здравствуйте, ',Log1);
    writeln ('Для того чтобы узнать список команд с пользователем наберите Chelp');
    readln (Chelp);
    if Chelp=EnterHelp
    then
    goto 4
  end;
end.