Лабораторная работа № 16

Цель работы: Изучение правил описания и использования строк типа string.
Задание№  17.  Из  заданного  текста  на  русском  языке  вывести  слова   с
максимальным кол-вом гласных букв.
                         Программа на Turbo Pascal.

{Программа: lab16
             }
{Цель: Посчитать макс. кол-во русских букв                            }
{Переменные:
                 }
{            mas          - вводимые массивы
         }
{      s          - промежуточный массив                     }
{            i,n,kj        - переменные цикла
            }
{Программист: Позднышев А.А. группа 316                               }
{Проверил: Новичков В.С.
          }

program lab16;
uses crt;
type
 mas=array[1..50]of string[80];

procedure Trim(Var s:string);
 begin {Trim}
  while (s[1]=' ')and(length(s)>0)do
   delete(s,1,1);
  while (s[length(s)]=' ')and(length(s)>0)do
   delete(s,length(s),1);
 end; {Trim}
procedure sravn(sl:string; Var k1:integer);
 begin {sravn}
  repeat
     if  (sl[1]='а')
      or (sl[1]='е')
      or (sl[1]='ё')
      or (sl[1]='и')
      or (sl[1]='о')
      or (sl[1]='у')
      or (sl[1]='ы')
      or (sl[1]='э')
      or (sl[1]='ю')
      or (sl[1]='я')
       then k1:=k1+1;
      delete(sl,1,1);
    until length(sl)=0;
 end; {sravn}
procedure s4et(ok:boolean;s:string;var ko:integer);
 var
  sl:mas;
  sl1:string[80];
  k,i,j:byte;
  k1:integer;
 begin {s4et}
  k1:=0;
  trim(s);
  s:=s+' ';
  i:=0;
  repeat
   k:=pos(' ',s);
   i:=i+1;
   sl[i]:=copy(s,1,k-1);
   delete(s,1,k);
  until s='';
  for j:=1 to i do
   begin
    sravn(sl[j],k1);
    if ok
     then
      if k1>ko
       then ko:=k1;
    if not ok
     then
      if k1=ko
       then writeln(sl[j]);
    k1:=0;
   end;
 end; {s4et}

var
 s:mas;
 i,n,k:integer;
begin
 k:=0;
 Writeln('Введите кол-во строк:');
 readln(n);
 Writeln('Введите текст:');
 for i:=1 to n do
  begin
   readln(s[i]);
   s4et(true,s[i],k);
  end;
  writeln('максимальное количество гласных букв в слове=',k);
 for i:=1 to n do
  s4et(false,s[i],k);
end.

                       Результат выполнения программы:
Введите кол-во строк:
4
Введите текст:
Рязанская
Государственная
Радиотехническая
Академия
максимальное количество гласных букв в слове=8
Радиотехническая