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

//ночной отвратный код //pascalabc.net 3.2 сборка 1318 var   f,g: text;   mins,i,currents,minscount: integer;   minswords: array of string;   buf1,buf2: char;   wordflag: boolean;   s: string; begin mins: =integer.maxvalue; assign(f,'input.txt'); reset(f); read(f,buf1); if not(eof(f)) then read(f,buf2); if ((buf1=' ') or (buf1=chr(10)) or (buf1=chr( and ((buf2=' ') or (buf2=chr(10)) or (buf2=chr( then   wordflag: =false; if (buf1< > ' ') and ((buf2=' ') or (buf2=chr(10)) or (buf2=chr( 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( and (buf2< > ' ')     then       begin         wordflag: =true;         currents: =0;         s: =buf2;       end       else       if ((buf1< > ' ') and (buf2=' ')) or ((buf2=chr(10)) or (buf2=chr(         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 elit etc curabitur posuere erat et felis ultricies pulvinar u пример содержимого output.txt: sit etc et u 

1. начало(в овале)

ввод a,b,min (в паралелограмме)

a< b (в ромбе)

2 стрелки, первая стрелка "нет" и в прямоугольнике min: =b

вторая стрелка "да" и в прямоугольнике min: =a

вывод min (в паралелограмме)

конец(в овале)

 

 

2.начало(в овале)

ввод a,b, c, min (в паралелограмме)

a< b (в ромбе)

2 стрелки, первая стрелка "нет" и в прямоугольнике min: =b

вторая стрелка "да" и в прямоугольнике min: =a

min< c (в ромбе)

2 стрелки, первая стрелка "нет" и в прямоугольнике min: =c

вторая стрелка сразу к выводу

вывод min (в паралелограмме)

конец(в овале)