ПАСКАЛЬ, строка символов
Напишите программу, которая:
а) определяет, сколько раз встречается в строке символ 'A'
б) заменяет символ 'А' символом ' * '
в) удаляет из строки символ 'В'
Пожалуйста, помогите! :с

а)Program z1;Var S:string;i,n,d:integer;Beginread(s);d:=length(s);n:=o;For i:=1 to d doIf copy(S,i,1)='A' thenn:=n+1;writeln(n );End.