очень нужно, пожалуйста, подскажите!
(в паскале)
Дан текстовый файл f, каждая строка которого состоит из слов, разделённых одним и более пробелами. Найти все слова, содержащие наименьшее, но ненулевое, количество гласных латинских букв (a, e, i, o, u). Сформировать из этих слов новый файл g.

//Ночной отвратный код//PascalABC.NET 3.2 сборка 1318Var  f,g:text;  mins,i,currents,minsCount:integer;  minsWords:array of string;  buf1,buf2:char;  wordFlag:boolean;  s:string;beginmins:=integer.MaxValue;assign(f,'input.txt');reset(f);read(f,buf1);if not(EOF(f)) thenread(f,buf2);if ((buf1=' ') or (buf1=chr(10)) or (buf1=chr(13))) and ((buf2=' ') or (buf2=chr(10)) or (buf2=chr(13))) then wordFlag:=false;if (buf1<>' ') and ((buf2=' ') or (buf2=chr(10)) or (buf2=chr(13))) then  begin    s:=buf1;    wordFlag:=false;  end;if (buf1<>' ') and (buf2<>' ') then  begin    s:=buf1+buf2;    currents:=0;    for i:=1 to length(s) do      if (lowcase(s[i])='a') or (lowcase(s[i])='e') or (lowcase(s[i])='i') or (lowcase(s[i])='o') or (lowcase(s[i])='u') then         inc(currents);    wordflag:=true; end;while not(EOF(f)) do  begin   if ((buf1=' ') or (buf1=chr(10)) or (buf1=chr(13))) and (buf2<>' ')    then      begin        wordFlag:=true;        currents:=0;        s:=buf2;      end     else      if ((buf1<>' ') and (buf2=' ')) or ((buf2=chr(10)) or (buf2=chr(13)))        then          begin            wordFlag:=false;            for i:=1 to length(s) do              if (lowcase(s[i])='a') or (lowcase(s[i])='e') or (lowcase(s[i])='i') or (lowcase(s[i])='o') or (lowcase(s[i])='u') then                inc(currents);            if(currents=mins) then              begin                inc(minsCount);                setlength(minsWords,minsCount);                minsWords[minsCount-1]:=s;              end;            if(currents<mins) and (currents<>0) then              begin                minsCount:=1;                setlength(minsWords,minsCount);                minsWords[minsCount-1]:=s;                mins:=currents;              end;          end        else          if wordFlag             then              s:=s+buf2;   buf1:=buf2;   read(f,buf2); end; if wordFlag then begin s+=buf2; for i:=1 to length(s) do              if (lowcase(s[i])='a') or (lowcase(s[i])='e') or (lowcase(s[i])='i') or (lowcase(s[i])='o') or (lowcase(s[i])='u') then                inc(currents);              if(currents=mins) then              begin                inc(minsCount);                setlength(minsWords,minsCount);                minsWords[minsCount-1]:=s;              end;            if(currents<mins) and (currents<>0) then              begin                minsCount:=1;                setlength(minsWords,minsCount);                minsWords[minsCount-1]:=s;                mins:=currents;              end;     end else  if buf2<>' ' then    begin      if (lowcase(buf2)='a') or (lowcase(buf2)='e') or (lowcase(buf2)='i') or (lowcase(buf2)='o') or (lowcase(buf2)='u') then        currents:=1;     if(currents=mins) then              begin                inc(minsCount);                setlength(minsWords,minsCount);                minsWords[minsCount-1]:=buf2;              end;      if currents<mins then              begin                minsCount:=1;                setlength(minsWords,minsCount);                minsWords[minsCount-1]:=buf2;                mins:=currents;              end;    end; close(f); assign(g,'output.txt'); rewrite(g); for i:=0 to length(minsWords)-1 do  write(g,minsWords[i],' '); close(g);end.Пример содержимого input.txt:Lorem ipsum dolor sit amet consectetur adipiscing elitetc Curabitur posuere erat et felis ultricies pulvinar uПример содержимого output.txt:sit etc et u