Написать программу которая будет спрашивать имя если имя ваше то если нет я вас не знаю.. !

Program asd;
USES crt;
var S,S1,a:string;
BEGIN
  s:='Даша';
  s1:='Дарья';
  Writeln('Как Вас звать ?! '); 
 Readln(a); 
 If (s=a) or (s1=a) then
Writeln('Дарья, здравствуй!') 
 else
writeln('Я Вас не знаю.');
END.
P.S: Тебя же Даша зовут ? :)