Задача по PASCAl. На стоки

[maia]

1.Даны три фамилии . определить есть ли среди них фамилии начинающиеся на букву "М" . Вывести найденные фамилии. Если таковых нет вывести соответствующее сообщение.

[Esgal]

Код: Выделить всё

program Fnames;
uses crt;
var fam1,fam2,fam3,Mfams:string;
begin
clrscr;
writeln('Введите три фамилии:');
readln(fam1);
readln(fam2);
readln(fam3);
if fam1[1]='M' then Mfams:=Mfams+fam1+', ';
if fam2[1]='M' then Mfams:=Mfams+fam+', ';
if fam3[1]='M' then Mfams:=Mfams+fam3;
if Mfams[0]=0 then writeln('Ни одна из фамилий ние начинается на М!')
else writeln('На М начинаются фамилии: ',Mfams);
end.

[Хыиуду]

Все правильно, только
if fam2[1]='M' then Mfams:=Mfams+fam+', ';
в конце не fam, а fam2. И запятые в конце я бы делать не стал. Лучше пробелы. А то может получиться вывод типа "Михайлов, Морозов, "