Дана строчка, состоящая из российских слов, разделенных пробелом. Найти слово, с

На экран - это как раз консольный режим, поэтому что в оконном режиме Borland Delphi отображает результат на форме )))

Но дело Ваше, у Вас в задании обозначено просто язык Pascal, поэтому будет чисто Паскаль.

я не мыслил, что тут знают делфи, мне надо на форме вынести собственный ответ, в компонент ввожу текст тобишь это edit1, и через иной edit2 я вижу ответ

Тут знают Безусловно ВСЕ, вопрос только в том, чтоб попасть на решающего, у которого имеется подходящий программный продукт. К образцу, у меня Delphi не установлен.

буду знать, ты напиши мне код в паскале если у тебя есть только turbo pascal

я на практике сижу)) мне бы немножечко попрытче:)

если не тяжело)

У меня Pascal.ABC, он схож на Delphi

ну напиши ты теснее))

Я и пишу. Тут алгоритм не таковой простой, как кажется. Хотя, если использовать класс строк, там есть парсер и код будет простым

Var
  s,w:string;
  i,j,n,p,k,gmax:integer;
  fBreak:boolean; флаг для прерывания циклов
begin
  Writeln('Введите текст, деля слова пробелами');
  Readln(s);
  s:=LowerCase(s);
  n:=Length(s); p:=1; fBreak:=False; gmax:=0;
  while (not Fbreak) do перебор всех символов в строке
  begin
    разыскиваем 1-ый непробельный знак - начало слова
    fBreak:=False;
    while ((plt;=n) and (not fBreak)) do
      if (p=n) or (s[p]lt;gt;' ') then fBreak:=True
      else Inc(p);
    ищем 1-ый пробельный знак - конец слова
    if plt;n then begin
      i:=p; Inc(p); fBreak:=False;
      while (plt;=n) and (not fBreak) do begin
        if (p=n) or (s[p]=' ') then fBreak:=True
        else Inc(p)
      end;
      сейчас слово находится между позициями i и p
      k:=0;
      for j:=i to p do
        if s[j] in ['а','е','ё','и','о','у','ы','э','ю','я'] then Inc(k);
      if gmaxlt;k then begin gmax:=k; w:=Copy(s,i,p-i) end;
      i:=p; p:=p+1
    end
    else p:=p+1;
    fBreak:=(pgt;n)
  end;
  if gmaxgt;0 then Writeln('В слове "',w,'" максимум гласных, одинаковый ',gmax)
  else Writeln('Во введенной строке гласных букв не найдено')
end.

Тестовое решение:
Введите текст, разделяя слова пробелами
В слове ДЛИННОШЕЕЕ три буквы е попорядку!
В слове "длинношеее" максимум гласных, одинаковый 5