Несколько заданий на строки

[VaLenOK007]

Привет Есть два задания, на строки, помогите пожалуйста!

1 задание:
В заданной строке найти первое слово, содержащее не менее заданного числа гласных.


2 задание:
В заданной строке, найти слово содержащее наибольшее колличество букв.

[Alex11223]

Например, можно разделить строку на слова, занеся слова в массив строк. Для этого надо определиться с тем, что такое слово и чем они разделены.

Тут пример http://www.programmersforum.ru/showt...369#post398369 если слова разделены только пробелом
Или можно создать список (set of ...) разделителей. Или наоборот смотреть только на буквы (['a'..'z'] или ['A'..'Z']).

[ByAlex]

Еще нужно нет?

[VaLenOK007]

Что-то с тем я не разобрался, как именно вынести кол-во буковок в условие? Если не сложно, обрисуйте этот кусок в коде

[Alex11223]

Ну, например, по примеру, что по ссылке (если слова разделены только пробелом: условие же именно про то, что и как заносить в массив, а не что потом с ним делать) после того, как занес их туда проходишь весь массив циклом for i:=1 to count и считаешь, что нужно в словах, сравниваешь и т.д.

[ByAlex]

Типа вот -

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var
  max,n,i:integer;
  str:string;
begin
  max:=0;
  n:=0;
  write('Vvedite stroku: ');
  read(str);
  for i := 1 to length(str)+1 do
  begin
    if str[i] in ['a'..'z'] then
      inc(n)
    else
    if (str[i]=' ') or (str[i+1]=#0) then
    begin
      if n>max then
        max:=n;
      n:=0;
    end;
  end;
  write('Max = ',max);
  readln;
  readln;
end.