Помогите пожалуйста!!! Pascal ABC
В третей строчке выдает ошибку, пишет "Неожиданный символ". Что делать?

VAR P:integer;
begin
write(’введите пароль’);
read (P);
if p:=1998 then write (’Молодец’) else write (’Пароль не верен’);
end.