Pascal 1)задан список из 7 фамилий. определить, имеется ли в списке фамилия, начинающаяся с буквы "а" и состоящая из 6 букв. если да, то вывести ее на экран 2)в заданном тексте удалить символ ' , ' и подсчитать число удаленных символов. предусмотреть возможность с клавиатуры удаляемого символа. 3)организовать простейшую базу данных по студентам группы. сведения о студенте включают: фио, год рождения, пол, средний . обеспечить ввод данных, редактирование, вывод на экран. информацию хранить в типизированном файле. решить. полностью все свои
var
i: integer;
s: array [1..7] of string;
begin
writeln('Введите 7 фамилий: ');
for i := 1 to 7 do readln(s[i]);
for i := 1 to 7 do
if (s[i][1] = 'А') and (length(s[i]) = 6) then writeln('Подходящие фамилии: ', s[i])
end.