Проверьте правописание "ча" и "ща" в тексте.

[zephiroth]

Проверьте правописание "ча" и "ща" в тексте.
Выведите на экран количество сделанных ошибок и исправленную строку. Применяйте подпрограммы.

[Филантроп]

c:=0;
while pos(s,'чя')<>0 do
begin
k:=pos(s,'чя');
delete(s,k+1,1);
insert('a',s,k+1);
inc(c);
end;
while pos(s,'щя')<>0 do
begin
k:=pos(s,'щя');
delete(s,k+1,1);
insert('a',s,k+1);
inc(c);
end;
writeln(s);
writeln(c);

[zephiroth]

Сообщение от Филантроп

c:=0;
while pos(s,'чя')<>0 do
begin
k:=pos(s,'чя');
delete(s,k+1,1);
insert('a',s,k+1);
inc(c);
end;
while pos(s,'щя')<>0 do
begin
k:=pos(s,'щя');
delete(s,k+1,1);
insert('a',s,k+1);
inc(c);
end;
writeln(s);
writeln(c);

а можешь написать целиком а то что то не запускается
в долгу не останусь!