В PASCAL .Составить список слов начинающихся на конкретную букву

[Waia]

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

From Stilet: Темы называй так как хочеш получить ответ.

[Stilet]

Ну еси на делфе то примерно так:

var a:array[1..3] of string ;i:byte;  s:string;
begin
a[1]:='Мартын';a[2]:='Tартын';a[3]:='Fртын';

for i :=1  to high(a)  do   begin
 s:=a[i];
 if s[1]='М' then begin caption:=a[i];break; end;
end;

end;