Сделайте массив из 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.
ТЕСТ
Введите фамилию 1
Виноградов 
Введите фамилию 2
Анисимов 
Введите фамилию 3
Кондратьев 
Введите фамилию 4
Соколов 
Введите фамилию 5
Архипов 
Введите буковку
А
На буковку А начинаются фамилии:
Анисимов 
Архипов