Ошибка в разделе type

type
 User=class;
  puclic
   Nickname:string;
   Pass:integer;
   Group:string;
end;
var
 u:User;
begin
 u:=new User;
 writeln('Äîáðî ïîæàëîâàòü â ñèñòåìó. Ïðåäñòàâüòåñü, ïîæàëóéñòà.');
 write('Óêàæèòå Âàø ïñåâäîíèì: ')
 readln(u.Nickname);
 write('Çàìå÷àòåëüíî, ', u.Nick_name, '. Ïðèäóìàéòå ïèí-êîä äëÿ âõîäà â ñèñòåìó.');
 readln(u.Pass);
 write('Âàø ïàðîëü: ', u.Pass, ' . Óêàæèòå ãðóïïó ïîëüçîâàòåëåé, ê êîòîðîé Âû áû õîòåëè áûòü ïðè÷èñëåíû');
 readln(u.Group);
 write('Ñïàñèáî, ïðîöåññ ðåãèñòðàöèè îêîí÷åí. Âàø ïñåâäîíèì: ', u.Nickname, '; Âàø ïèí-êîä: ', u.Pass, '; Âàøà ãðóïïà: ', u.Group);
end.

type
  User = class
  public 
    Nickname: string;
    Pass: integer;
    Group: string;
  end;
 
var
  u: User;
 
begin
  u := new User;
  writeln('Добро пожаловать в систему. Представьтесь, пожалуйста.');
  write('Укажите Ваш псевдоним: ');
  readln(u.Nickname);
  write('Замечательно, ', u.Nickname, '. Придумайте пин-код для входа в систему.');
  readln(u.Pass);
  write('Ваш пароль: ', u.Pass, ' . Укажите группу пользователей, к которой Вы бы хотели быть причислены');
  readln(u.Group);
  write('Спасибо, процесс регистрации окончен. Ваш псевдоним: ', u.Nickname, '; Ваш пин-код: ', u.Pass, '; Ваша группа: ', u.Group);
end.

u := new User;

u := new User;

u := User.Create;

  writeln('Äîáðî ïîæàëîâàòü â ñèñòåìó. Ïðåäñòàâüòåñü, ïîæàëóéñòà.');

  writeln('Добро пожаловать в систему. Представьтесь, пожалуйста.');