Паскаль. Строки. удалить слово, содержащее меньше всего гласных

[LIARH]

21.4 "Из заданной строки удалить слово, содержащее меньше всего гласных".


Решить с использованием подпрограмм и модулей, ввод и вывод данных - указать файл.

ПА-МА-ГИ-ТЕ!!! Заранее спасибо

[Luke]

var CntArr: array [0..255] of byte;
i, CntArrIndex, StrLen: byte;
Str: String;
type MySet: set of char;
const Separator:MySet = [' ', '!', '?', '.'];
const Vowels:MySet = ['a', 'e', 'i', 'o', 'u', 'y'];
begin
ReadLn(Str);
StrLen := length(Str);
CntArrIndex := 0;
for i := 0 to 255 do
CntArr[i] := 0;
for i := 1 to StrLen do 
begin
if Str[i] in Vowels then
Inc(CntArr[CntArrIndex]);
if Str[i] in Separator then
Inc(CntArrIndex);
end;

Дальше сам=)

[Stilet]

с использованием подпрограмм

Ну для начала вот тебе подпрограмма определяющая колво гласных в слове:

function glazz(s:string):integer;
var k,i:integer;
begin       k:=0;
 for i:=1 to length(s) do
  if s[i] in ['а','у','о','е'] then k:=k+1;
 glazz:=k;
end;

Далее копируй стрку от начала до пробела (его поможет найти функция pos), проверяй гласные, удаляй ее из строки и так же бери следующую.
Начни с этого.