FREE PASCAL. Слово с самым большим количеством слогов в текстовом файле

[Ku-klan]

Здравствуйте уважаемые программисты!
Дан текстовый файл. Найти самое длинное слово и слово с самым большим количеством слогов.

Есть такой код, но он не работаем.
Помогите, пожалуйста, найти ошибку!

uses
 crt;
var f:text;
    sum:char;
    s,maxsl,max,s1:string;
    m,maxs,d:integer;

function sloga(s1:string):integer;
   var i,k:integer;
       sl:string;
begin
k:=0;
sl:='eyuioa';
for i:=1 to length(s1) do
 begin
  if pos(s1[i],sl)>0 then {ищет первое вхождение строки s1 в строку sl}
  k:=k+1;
 end;
sloga:=k;
end;
begin clrscr;
assign(f,'e:\file.txt');
reset(f);
writeln('<<Содержимое файла>>');
while not eof(f) do
  begin
   readln(f,s1);
   writeln(s1);
  end;
close(f);
writeln(' ');
d:=0;
maxs:=0;
assign(f,'e:\file.txt');
reset(f);
while not eof(f) do
 if not eoln(f) then
  begin
   read(f,s);
   if  d<length(s) then
    begin
     max:=s;
     d:=length(s);
    end;
   m:=sloga(s);
   if maxs<m then
    begin
     maxsl:=s;
     maxs:=m;
    end;
   end
  else
   readln(f);
   close(f);
   writeln('Максимум слогов в слове- ',maxsl);
   write('Самое длинное слово- ',max);

readln;
end.

[Utkin]

Потому что такие задачи наскоком не решают. Разбей задачу на компоненты.
Я бы выделил следующие этапы:
1. Загрузка файла
2. Выделение слов в массив
3. Поиск из слов того, где больше слогов
Соответственно и разбил на некоторое количество процедур и функций.

[Ku-klan]

Спасибо за ответ!
Я, к сожалению, совершенный новичок.
Код нашла в интернете, но он не работал.
Пыталась переделать, но выдает еще больше ошибок.
Поэтому и обратилась с просьбой о помощи!!!

[Utkin]

Вот я Вам и даю основную мысль - любая задача должна разбиваться на более мелкие шаги которые нужно стараться реализовывать независимо.

[Ku-klan]

Программа запускается,
но в ответе выдает не самое длинное слово, а самое длинное предложение.
И не слово с самым большим кол-вом слогов, а также, самое длинное предложение.

Помогите, пожалуйста!!!

[Ku-klan]

Программисты, пожалейте девушку,
вчера пол ночи просидела за этой программой,
НИЧЕГО не выходит
скоро надо сдавать (учусь дистанционно,
спросить не у кого)

[Stilet]

Вот тебе приблизительный пример для раздумий:

var s,m,w,l:string;  i,ks,sk:integer;
begin
это строка из файла
 s:='Hello madness world ';
 w:=''; ks:=0; sk:=0;

Проходим по ней в цикле
 for i:=1 to Length(s) do begin
   if s[i]<>' ' then begin
   Если не пробел то заполняем временную переменку словом
     w:=w+s[i];
   Выясняя кол-во гласных
     if s[i] in ['e','y','u','i','o','a'] then inc(ks);
   end else begin

   Если это слово длиннее - запомним его
     if Length(w)>Length(m) then m:=w;

   Если кол-во гласных больше запомним слово
     if ks>sk then begin l:=w;sk:=ks;end;
     ks:=0;
     w:='';
   end;
 end;
 writeln(m);writeln(l);
 readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.

Прикрути его к своему циклу считывания из файла, и уточни условие слогов.

[Ku-klan]

Спасибо!
Буду разбираться!

[Ku-klan]

УРА! Все получилось!
СПАСИБО!!!

[Durgut]

а я чёт не могу догнать. не могли бы вы конечный код выложить ?! заранее очень благодарен.