Создайте массив из 5 фамилий и выведите на экран те из них которые начинаются на букву вводимую с клавиатуры

Const

n=5;

var

a:array[1 ... n] of string;

c:char;

i:integer;

begin

for i:=1 to n do

begin

writeln ('Введите фамилию №', i);

readln (a[i]);

end;

writeln ('Введите букву');

readln (c);

writeln ('На букву ', c,' начинаются фамилии:');

for i:=1 to n do

if a[i][1]=c then

writeln (a[i]);

end.