строки, кол-во букв а в посл.слове строки +нормализация Опции

[brahma]

1) Дана строка символов. Группы символов, разделенные одним или несколькими пробелами и не содержащие пробелы внутри себя, будем называть словами. Подсчитать количество букв "а" в последнем слове данной строки.
2)Составить программу нормализации строки символов путем исключения из неё всех идущих подряд одинаковых символов. Вместо них вставить один символ.

[klem4]

не ужели так лень подумать ?

i := 1;
while i < length(s) do 
  if s[i] = s[i + 1] then
    delete(s, i, 1)
  else
    inc(i);