Даны натуральное число n, символы s1,...sn. , группы символов, разделённые пробелами (одним или несколькими) и не содержащие пробелов внутри себя , будем называть словами.  подсчитать количество букв a в последнем слове данной последовательности

В TPascal

vars:string;i,count,count1,numI:integer;begincount:=0;count1:=0;readln (s);for i:=1 to length(s) doif (s[i]=' ') thenbegincount:=count+1;numI:=i;end;for i:=numI+1 to length(s) do count1:=count1+1;writeln ('Число букв в последнем слове:',count1);

end.