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

[brahma]

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

[klem4]

в первой собственно разбиение на слова и не нужно ..

var
  s: String;
  i, count: Byte;
begin
  write('s = '); readln(s);

  i := Length(s);

  while (s[i] = ' ') and (i > 0) do
    dec(i);

  count := 0;

  while (i > 0) and (s[i] <> ' ') do begin
    if s[i] = 'a' then
      inc(count);
    dec(i);
  end;

  writeln('count = ', count);
end.