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