Помогите пожалуйста!!! Pascal ABC
Пишет, что в 5 строке неожиданный символ. Помогите пожалуйста!!!

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.