Написать программу,по которой компьютер бы своего хозяина, а при попытке ввести какое-либо другое имя спрашивал бы: а где вася?

Var s:string;
begin
writeLn('Назовите Ваше имя');
readln(s);
if (s='Вася')or(s='вася') then
writeLn('Привет, ',s)
else writeLn('А где Вася?');
end.