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

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

Код

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

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

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

Да ничего я не понимаю блин

[volvo]

Да ничего я не понимаю блин 

А как ты думаешь, если я тебе дам готовое решение, ты будешь понимать больше? Ну, посмотрим:

var
  s, wrd: string;
  first, p: integer;
begin
  s := 'start finish start start end begin';
  wrd := 'start';
  first := 0;
  repeat
    p := pos(wrd, copy(s, first + 1, 255));
    if p > 0 then begin
      writeln('position ', first + p);
      inc(first, p + length(wrd));
    end;
  until p = 0;
end.

Разбирайся...