Строки. множества. подпрограммы. в pascalabcnet

Задание 1. 1. Набрать и исполнить программу. 2. Преобразовать программу так, чтобы во введенной строке символов считалось количество начального символа вашей фамилии.
Пример № 1. Дана строка. Подсчитать количество символов «А» в строке. (Идея программы: вводится строка S. Программа подсчитывает количество символов «А» согласно поставленному условию.) Program Primer1; uses crt; var S:string; {задание строки} c, i:byte; begin ClrScr; writeln (‘ввести строку’); readln(S); {ввод последовательности символов} for i:=1 to length(S) do if s[i]=’A’ then c:=c+1; {подсчет количества символов А} writeln(‘число вхождений буквы А=’, с); end.