vch

Unit Stroki;

 Interface

  function kol_glasnyx(str:string):byte;
  function minimum(str:string):string;

 Implementation

  Uses crt;

  Var

   str:string;

  function kol_glasnyx(str:string):byte;

   var

    kol:byte;
    len:byte;
    i:byte;

   begin

    len:=length(str);
    kol:=0;
    for i:=1 to len do
     case str[i] of
      'a','e','u','o','i': kol:=kol+1;
     end;
    kol_glasnyx:=kol;

   end;

  function minimum(str:string):string;

   var

    len:byte;
    i:byte;
    j:byte;
    m:byte;
    slova:array[1..100] of string;
    min:byte;
    k:byte;

   begin

    len:=length(str);
    j:=0;
    m:=1;
    for i:=1 to len do
     case str[i] of
      '.',',',';',',',' ',':','-','!','?':
       begin
        j:=j+1;
        slova[j]:=copy(str,m,i-m);
        m:=i+1;
       end;
     end;
    for i:=1 to j do
     if (length(slova[i])<min) then
      begin
       min:=length(slova[i]);
       k:=i;
      end;
    minimum:=slova[k];
   end;

  begin

  end.