Завдання: ввести прізвище, ім'я,по батькові як одне дане строкового типу. 1)чи починається хоча б одне слово з букви 'м'? ? будь-ласка pasccal

Var a,b,c,m:boolean;
begin
m:=m;
readln(m);
writeln('vvedit prizvishe');
readln(a);
writeln('vvedit imia');
readln(b);
writeln('vvedit pobatkovi');
readln(c);
If ((a=m) or (b=m)) or (c=m); then writeln('Yes')
Else writeln('no');
end.