Вpascal abc. а) подсчитать количество пар чисел '23', '45' по отдельности. б) заменить каждый символ '; ' на пару символов '/'.

б)
uses crt;
var s:string;
 i,n:byte;
begin
 clrscr;
writeln('Введите строку, содержащую точку с запятой");
readln(s);
n:=length(s);
for i:=1 to n do
if s[i]=';' then
s[i]:='/';
writeln('Замена точек на /');
write(s);
readln
end.