Из слова "форма" получить слово "фирма" 2) дан текст "картографирования" получить слова граф, арт, роф. 3) сколько раз в заданном условии повторяется буква а.4) дано предложение ( s) подсчитать количество символов (а). решить , нужно.

Var
s:string;
i,k:integer;
begin
s:='форма';
writeln('Слово: ',s);
s[2]:='и';
writeln('Получили слово: ',s);
s:='картографирования';
writeln('Из слова: ',s);
writeln('получили слова: ', copy(s,6,4),' ',copy(s,2,3), ' ', copy(s,11,2)+s[9]);
writeln('Введите предложение:');
readln(s);
for i:=1 to length(s) do
if (s[i]='А')or(s[i]='а') then k:=k+1;
writeln('В заданном предложении буква а встречается ',k,' раз');
end.