Даны последовательность символов, в начале которой имеется некоторое количество одинаковых символов. - Pascal ABC

Формулировка задачи:

Я сам в строках вообще 0 помогите пожалуйста следующие задание: 1)даны последовательность символов, в начале которой имеется некоторое количество одинаковых символов.Определить это количество.рассмотреть два случая: а)известно,что не все символы последовательности одинаковые б)все символы последовательности могут быть одинаковыми 2)Дано предложение.Заменить в нем все буквосочетания да на нет. 3)Дан текст.Определить является ли он правильной десятичной записью целого числа. 4)Дана два слова.для каждой буквы первого слова определить входит ли она во второе слово.Повторяющиеся буквы первого слова не рассматривать.Например,если заданые слова процессор и информация , то для первого из нех ответом должно быть: нет да да да нет нет. ПОМОГИТЕ МНЕ ПОЖАЛУЙСЯ!!!

Решение задачи: «Даны последовательность символов, в начале которой имеется некоторое количество одинаковых символов.»

Листинг программы

var
  s, a: string;
  i: integer;
 
begin
  readln(s);
  s := s + ' ';
  while i < length(s) do
  begin
    inc(i);
    if (s[i] = 'д') and (s[i + 1] = 'а') then begin a := a + 'нет'; inc(i); end else a := a + s[i];
  end;
  writeln(a);
end.

Объяснение кода листинга программы

Введенная строка сохраняется в переменной s.
Переменная i инициализируется значением 1.
В цикле, пока значение i меньше длины строки s, выполняется следующая последовательность действий:
- Увеличивается значение i на 1.
- Если символы s[i] и s[i+1] равны 'д' и 'а' соответственно, то:
- Значение переменной a увеличивается на 'нет'.
- Значение i увеличивается на 1.
- В противном случае, значение переменной a увеличивается на символ s[i].
Выводится значение переменной a.