Дана строка, состоящая из нескольких слов, между словами стоит один пробел, в конце предложения - точка. Подсчитать количество слов и вывести на экран только те из них, которые начинаются с буквы 'а' (слов не больше 30).

{Разобьем предложение на отдельные слова, и каждое будем хранить как элемент массива.}

program р58;
  uses crt;
  const n=30;
  var b: array[1..n] of string;
      st: string[255];
      i,k: integer;
begin
  clrscr;
  write('st=');readln(st);
  k: = 1;
{Пока не встретится пробел, формируем очередное слово к, прибавляя по одной букве }
  for i:=1 to length(st) do
  If st[i]<>' ' then
    b[k]:=b[k]+st[i]
  else
{Если это не последний символ, то увеличиваем счетчик слов и начинаем формировать соответствующий элемент массива.}
  if i<>length(str) then
    begin
      inc(k);b [k]:= ' ';
    end;
  end;
  writeln('k=',k);
{Просматриваем все слова, если первый символ очередного слова равен букве V, то выводим его}
  for i:=1 to k do
   if copy(b[i],1,1) = 'a' then
     write(i,'-',b[i, ' ');
  readln;
end.