Задачка на строки, :( Опции

[-Виктория-]

Код

В строке посчитать по отдельности кол-во входящих в неё символов "а", "б" и "в" за менить на символ "?".
Результирующую строку и кол-во символов вывести на экран.

В программе использвать строковые переменные строкового типа.

[Altair]

Вика,вы просили коментировать..

program vika
Var
 s:string; {строкавая переменная}
 a,b,v,i:byte; {счетчики для подсчета и счетчки для прохода построке}
begin
 write('Enter string: '); readln(s); {запрос и ввод строки}
 for i:=1 to ord(s[0]) do  begin {проходим от 1 элепетна до длинны строки}
case s[i] of {смотрим i символ строки}
   'а':begin inc(a); s[i]:='?' end; {если а, то УВЕЛИЧИВАЕМ на 1 счетчик a, ставим ?}
   'б':begin inc (Ь); s[i]:='?' end;{если б, то УВЕЛИЧИВАЕМ на 1 счетчик б, ставим ?}
   'в':begin inc(v); s[i]:='?' end;{если в, то УВЕЛИЧИВАЕМ на 1 счетчик в, ставим ?}
  end 
 end;
 writeln(s,' ',a,'а  ',b,'б  ',v,' в'); {выод результата}
end.

Думаю вопросов больше нет....