Определить количество букв Е, Ю и Я в введенном предложении. Слова, в которых эти буквы встречаются более одного раза поставить в начале предложения

uses crt;
var s:string;
i,b1,b2,b3,k,l,a:integer;
begin
writeln('введите предложение');
readln(s);
for i:=1 to length(s) do
 begin
 if (s[i] = 'Е') or (s[i] = 'е') then inc(b1);
 if (s[i] = 'Ю') or (s[i] = 'ю') then inc(b2);
 if (s[i] = 'Я') or (s[i] = 'я') then inc(b3);
 end;
writeln('Е = ',b1);
writeln('Ю = ',b2);
writeln('Я = ',b3);
l:=0;
for i:=1 to length(s) do
 begin
 if s[i] = ' ' then
  begin
  inc(k);
  a:= i - l-1;
  writeln('Длинна ', k , 'слова = ',a);
  l:=i;
  end; 
 end;
 a:=length(s) - l;
 writeln('Длинна ', k+1 , 'слова = ',a);
end.

var s,n:string;
i,b1,b2,b3,v,k,l,a,a1,a2:integer;
ad,am:array[1..10] of string;
begin
writeln('введите предложение');
readln(s,n);
l:=0;
v:=0;
a1:=1;
a2:=2;
for i:=1 to length(s) do
 begin
 if (s[i] = 'Е') or (s[i] = 'е') then inc(b1);
 if (s[i] = 'Ю') or (s[i] = 'ю') then inc(b2);
 if (s[i] = 'Я') or (s[i] = 'я') then inc(b3);
 if s[i] = ' ' then
  begin
  inc(k);
  a:= i - l-1;
  writeln('Длинна ', k , 'слова = ',a);
  if b1+b2+b3-v>=2 then
   begin
   ad[a1]:= n+ copy(s,i-a,i)+ ' ';
   inc(a1);
   v:=b1+b2+b3;
   end
  else
   begin
   am[a2]:= n+ copy(s,i-a,i)+ ' ';
   inc(a2);   
   end; 
  l:=i;
  end; 
 end;
 a:=length(s) - l;
 writeln('Длинна ', k+1 , 'слова = ',a);
writeln('Е = ',b1);
writeln('Ю = ',b2);
writeln('Я = ',b3);
for i:=1 to a1 do
n:=n+' '+ad[i];
for i:=1 to a2 do
n:=n+' '+am[i];
writeln(n);
end.