Составьте программу, которая...

Составьте программу, которая вставляет слово ОБА после каждого слова, заканчивающегося на гласную.

Или

составьте программу, которая определяет на сколько в строке S слов, начинающихся на главную букву больше, чем в строке T

надо решить одну из них

 

Первая.
uses crt;
var i:integer;
s:string;
begin
i:=1;
read(s);
while i<length(s) do
begin
if (s[i+1]=' ') and((s='а') or (s='е') or (s='ё') or (s='и') or (s='о') or (s='у') or (s='ы') or (s='э') or (s='ю') or (s='я')) then
begin
s:=copy(s,1,i)+'ОБА'+copy(s,i+1,length(s));
end;
i:=i+1;
end;
case s[length(s)] of 'а','е','ё','и','о','у','ы','э','ю','я':
s:=s+'ОБА';
end;
writeln(s);
end.