Дана строка. В строке удалить символ двоеточие и подсчитать количество удаленных символов.в делфи

[_Алексей_]

тока если есть возможность сделать просто и понятно

[Кольша]

var
s:string;
i,c:integer;
begin
c:=0;
s:='text a tut : i tut : i dazhe tut : i vsego ih 3';
for i:=1 to length(s) do
if s[i]=':' then begin
delete(s,i,i);
inc(c);
end;
showmessage('двоеточий целых'+inttostr(c));

вроде так

[_Алексей_]

а куда лучше вывести в мемо или в лабель?

[SlavaSSU]

var
s:string;
i,kol:integer;
begin
writeln('vvedite stroku');
readln(s);
kol:=0;
i:=1;
while i<=length(s) do 
if s[i]=':' then begin inc(kol); delete(s,i,1); end else inc(i);
writeln;
writeln('kol=',kol);
writeln('s=',s);
readln;
end.