Из слова "форма" получить слово "компания" 2) Дан текст "картографирования" получить

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.