Complete the questions in the Past Simple

Функция (информатика) Фу́нкция — в программировании — один из видов подпрограммы. Особенность, отличающая её от другого вида подпрограмм — процедуры, состоит в том, что функция возвращает значение, а её вызов может использоваться в программе как выражение. С точки зрения теории систем, функция в программировании — отдельная система (подсистема, подпрограмма), на вход которой поступают управляющие воздействия в виде значений аргументов. На выходе системы получаем результат выполнения программы, который может быть как скалярной величиной, так и векторным значением. По ходу выполнения функции могут выполняться также некоторые изменения в управляемой системе, причём как обратимые, так и необратимые. В некоторых языках программирования (например, в Паскале) функции существуют наряду с процедурами (подпрограммами, не возвращающими значения), в других, например, в C, являются единственным реализованным видом подпрограммы (то есть все подпрограммы являются функциями и могут возвращать значение). Побочным эффектом функции называется любое изменение функцией состояния программной среды, кроме возврата результата (изменение значений глобальных переменных, выделение и освобождение памяти, ввод-вывод и так далее). Теоретически наиболее правильным является использование функций, не имеющих побочного эффекта (то есть таких, в результате вызова которых возвращается вычисленное значение, и только), хотя на практике приходится использовать функции с побочным эффектом, хотя бы для обеспечения ввода-вывода и отображения результатов работы программы. Существует специфическая парадигма программирования — функциональное программирование, в которой любая программа представляет собой набор вложенных вызовов функций, не вызывающих побочных эффектов. Наиболее известный язык программирования, реализующий эту парадигму — Лисп. В нём любая операция, любая конструкция языка, любое выражение, кроме константы, являются вызовами функций.

//Ночной отвратный код
//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(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 elit
etc Curabitur posuere erat et felis ultricies pulvinar u
Пример содержимого output.txt:
sit etc et u