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