задачи по паскалю: в строке, состоящей из слов подсчитать количество слов на заданный символ; нарисовать пирамидку

[Sasha_KS]

Помогите не могу разобраться, задали сделать за эту неделю надо, не успеваю ...до этого болел (
а) Дано деякий текст. Групи символів, які розділені пробілами (одним або кількома) та не містіть всередині пробілів, називатимемо словами. Вважатимемо, що текст завжди починається зі слова. Підрахувати кількість слів, котрі закінчуються літерами “є” або “Є”.
б. Намалювати пірамідку, яка складається з різнокольорових кубиків.
в Починаючи від центру екрану, заповнити його різнокольоровими не зафарбованими всередині квадратами. Найменший квадрат має розмір 10х10 пікселів. Сторона кожного наступного на 10 пікселів більша, ніж у попереднього.
г.Створити типовий файл f , елементи якого обчислюються за формулою:
fi=i^2-i+1 (i=1,2,…n)
визначити число елементів файлу, що дають залишок 1 або 2 при діленні на 5.

[Sasha_KS]

uses graphABC;
begin
Rectangle(150,150,200,200);
FloodFill(155,155,clBlue) ;
Rectangle(100,100,150,150);
FloodFill(105,105,clred);
Rectangle(200,100,250,150);
FloodFill(205,105,clPurple);
Rectangle(100,150,150,200);
FloodFill(105,155,clGreen);
Rectangle(200,150,250,200);
FloodFill(205,155,clMaroon);
Rectangle(150,100,200,150);
FloodFill(155,105,clYellow );
Rectangle(150,50,200,100);
FloodFill(155,55,clAqua);
Rectangle(50,150,100,200);
FloodFill(55,155,clMoneyGreen);
Rectangle(250,150,300,200);
FloodFill(255,155,clNavy);
end.

в)

uses graphABC;
var x,y,d,a:integer;
begin
x:=windowwidth div 2;
y:=windowheight div 2;
d:=5;
setbrushstyle(bsClear);
while d<=y do
begin
setpencolor(clrandom);
rectangle(x-d,y-d,x+d,y+d);
d:=d+5;
end;
end.