помогите решить задачи в паскале на строки

[вадимкО]

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

[Volt]

ну первое

var I : byte; S:string;
begin
for I:=1 to Length(S) do
S[i]:=UpCase(S[i]);
end;

второе

var I : byte; S:string; n:integer;
begin
n:=0;
for I:=1 to Length(S) do
if (S[i]=' ') and (S[i-1]='E') then
inc(n);
end;

где n количество слов