Возможно нужно поставить кому после кавычек, перед дужкой write('введите пароль',);
Исправленная: VAR P:integer; begin write('введите пароль'); read (P); if p=1998 then write ('Молодец') else write ('Пароль не верен'); end.