Есть ли ошибки в программе? Если есть, то необходимо исправить.
Задача: Дана строка символов из строчных русских букв , слова разделены любым знаком препинания . Вывести слова начинающиеся с гласной буквы , а оканчивающиеся - согласной.
program Mnog;
const
zn=[',','.',':',';','?','!',' '];
glas=['а','е','и','о','у','ю','я','э','ы','ё'];
sog=['б','в','г','д','ж','з','й','к','л','м','н','п','р','с','т','ф','х','ц','ч','ш','щ'];
var
St,sl:string;
i:integer;
begin
Writeln('Введите cтроку');
readln(st);
For i:=1 to length(st) do
If not(st[i] in zn) then
sl:=sl+st[i] else
begin
if (sl[1] in glas) and
(sl[length(sl)] in sog) then Writeln(sl);
sl:='';
end;
end.
Это о чести.
За совесть да за честь - хоть голову снесть.
Где честь, там и правда.
Чем труднее дело, тем выше честь.
Честное слово должно быть постоянно.
Береги честь смолоду, а здоровье под старость!
Дадут дураку честь, так не знает, где и сесть.
Честь ум рождает.
Бесчестье хуже смерти.
Это одостоистве.
Без грамоты, как без свечки в потемках.
Без надежды, что без одежды: и в теплую погоду замерзнешь.
Без цели ничего не делают.
Бережливость лучше прибытка.
Была бы охота, заладится всякая работа.
Быть занятым — быть счастливым.
В бою побеждает кто упорнее и смелее, а не кто сильнее.
В одну руку всего не загребешь