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

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

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