!решите суперпростую задачу!

[Света7]

Простите, но для меня турбопаскаль как и другие языки -кит грамота, не сочтите за великий труд, помогите устранить ликбез. Я думаю, что это простенькая задачка, интуиция подсказывает(кроме неё у меня ничо нет в этой области)

В заданном тексте заменить указанный символ на новый и подсчитать число замен.

[Medved]

[syntax='Pascal']
program lalala;
var l:string;a,b:char;
begin
writeln('Строка:');
readln(l);
writeln('Символ,который изменить и на какой:');
readln(a,b);
for i:=1 to length(l) do if l=a then l:=b;
writeln(l);
end.
[/syntax]

[Света7]

Спасибочки!

[Хыиуду]

Как вариант
while pos(a, l)<>0 do l:=copy(l,1,pos(a,l)-1)+b+copy(l, pos(a,l)+1, length(l));