Поиск в строке слов, в которых больше половины букв гласные

program a1;
const n=4;
type  mas= array [1..n] of string;slovo=string[10];
var  st: string;slv:mas; i,j,r,kol,nmax:byte; c:string[10];
 procedure slova (s:string;var msl:mas; var k:byte);{procedyra videlenu9 clov iz stroki}
 var r:string[10]; l,i,nc,kc:byte;
begin s:=' '+s+' '; l:=length(s); k:=0;
for i:=1 to l-1 do begin
if (s[i]=' ')and(s[i+1]<>' ') then nc:=i+1;
if (s[i]<>' ')and(s[i+1]=' ') then begin
kc:=i; k:=k+1;   r:=copy(s,nc,kc-nc+1);   msl[k]:=r;
end;end;end;
 
function gl(v:slovo):boolean;{fynkcui9 provekri yclovi9}
var d{kol-vo vxozdenui bykv},i,l:byte;
begin l:=length(v);d:=0;
for i:=1 to l do if (v[i]='a')or(v[i]='i')or(v[i]='o')or(v[i]='y')or
(v[i]='e')or(v[i]='u') then d:=d+1;
gl:=d>l/2;end;
 
 
begin writeln('vvedi stroky iz' ,n, 'slov');readln(st);
slova(st,slv,kol);
for i:=kol downto 1 do begin nmax:=1;
for j:=2 to i do if slv[j]>slv[nmax] then nmax:=j;
c:=slv[nmax]; slv[nmax]:=slv[i];slv[i]:=c;end;
for i:=1 to kol do writeln (slv[i]);end.

function gl(v:slovo):boolean;{fynkcui9 provekri yclovi9}
var d{kol-vo vxozdenui bykv},i,l:byte;
begin l:=length(v);d:=0;
for i:=1 to l do if (v[i]='a')or(v[i]='i')or(v[i]='o')or(v[i]='y')or
(v[i]='e')or(v[i]='u') then d:=d+1;
gl:=d>l/2;end;

function Pr(s:string):boolean;
const
  gl=['а','е','о','ё','у','ю','я','э','е','A','Е','У','Ё','О','Э','Ю','Я']//допишете если что-то потерял
var
  i,count:integer;
begin
  count:=0;
  for i:=1 to length(s) then
    if s[i] in gl then
      inc(count);
  if count>length(s) div 2 then
    Result:=true
  else
    Result:=false
end;

program a1;
const n=4;
type  mas= array [1..n] of string;
slovo=string[10];
var  st: string; 
slv:mas;
i,j,r,kol,nmax:byte;
c:string[10];
 
procedure slova (s:string;var msl:mas; var k:byte);{procedyra videlenu9 clov iz stroki}
var r:string[10];  
l,i,nc,kc:byte;
begin 
 s:=' '+s+' '; l:=length(s);
 k:=0;
 for i:=1 to l-1 do  
 begin
  if (s[i]=' ')and(s[i+1]<>' ')  then nc:=i+1;
  if (s[i]<>' ')and(s[i+1]=' ')   then  
begin
kc:=i;
k:=k+1;
r:=copy(s,nc,kc-nc+1);
msl[k]:=r;
end;end;end;
 
function gl(v:slovo):boolean;{fynkcui9 provekri yclovi9}
var d{kol-vo vxozdenui bykv},i,l:byte;
begin 
l:=length(v);
d:=0;
for i:=1 to l do 
  if (v[i]='a')or(v[i]='i')or(v[i]='o')or(v[i]='y')or
   (v[i]='e')or(v[i]='u') then d:=d+1;
gl:=d>l/2;end;
 
 
begin writeln ('vvedi stroky iz' ,n, 'slov');
 readln(st);
  slova(st,slv,kol);
for i:=kol downto 1 do
      begin nmax:=1;
for j:=2 to i do 
 if slv[j]>slv[nmax] then nmax:=j;
c:=slv[nmax];
 slv[nmax]:=slv[i];
slv[i]:=c;end;
for i:=1 to kol do writeln (slv[i]);end.

var
  max,i,j,t1,t2:integer;
  s,temp,temp1,temp2:string;
  a:array[1..255]of string;
{функция проверки доли гласных}
function Pr(s:string):boolean;
const
  gl=['а','е','о','ё','у','ю','я','э','е','A','Е','У','Ё','О','Э','Ю','Я'];//допишете если что-то потерял
var
  i,count:integer;
begin
  count:=0;
  for i:=1 to length(s) do
    if s[i] in gl then
      inc(count);
  if count>length(s) div 2 then
    Result:=true
  else
    Result:=false
end;
{основная программа}
begin
  writeln('Введите строку...');
  readln(s);
  max:=0;
  temp:='';
  for i:=1 to length(s) do
  begin
    if s[i]<>' ' then
      temp:=temp+s[i];
    if (s[i]=' ') or (i=length(s)) then
    begin
      if (temp<>'') and Pr(temp) then
      begin
        inc(max);
        a[max]:=temp;
      end;
      temp:=''
    end;
  end;
  {сортируем массив}
  for i:=1 to max-1 do
  begin
    temp1:=a[i];
    t1:=ord(temp1[1]);
    if ord(t1)<200 then
      t1:=t1+34;
    for j:=i+1 to max do
    begin
      temp2:=a[j];
      t2:=ord(temp2[1]);
      if t2<200 then
        t2:=t2+34;
      if t2<t1 then
      begin
        temp:=a[i];
        a[i]:=a[j];
        a[j]:=temp
      end;
    end;
  end;
  {выводим}
  writeln('Массив:');
  for i:=1 to max do
    write(a[i],' ');
  writeln
end.