Pascal ABC - язык. Помогите пожалуйста.

Дана строка символов. Группы символов, разделенные пробелами(одним или несколькими) и не содержащие пробелов внутри себя, будем называть словом
а)подсчитать количество слов, которые заканчиваются на букву "а"
б) переставить местами первое и последнее слова

1ая не работает. И я не пояснил... Это должно быть все в одном коде,одно решение на 2 пункта...

Что пишет Pascal?

Где написано что это всё должно быть на 2 пункта в вопросе?

Это примечание отсутствует в вопросе и значит мой ответ полностью совпадает с вашим вопросом.

а) var k: String;sum,i: Integer;beginwriteln('Введите текст');readln(k);for i:=1 to length(k) doif k[i]='а' then Inc(sum);writeln('Кол-во: ',sum);end.б) Var l,gg,kk:string;i:byte;Beginwriteln('Введите текст');readln(l);gg:=Copy(l,1,Pos(' ',l)-1);Delete(l,1,Pos(' ',l));kk:='';For i:=Length(l) downto 1 doif l[i]<>' ' then kk:=l[i]+kk else break;Delete(l,i,Length(kk));l:=kk+' '+l+' '+gg;writeln(l);End.