Создайте массив из 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 Архипов  Введите букву А На букву А начинаются фамилии: Анисимов  Архипов