Переписать текст в файл output.dat , удалив из текста слова, содержащие более двух различных гласных букв

const
     vowels : string ='аоэиуыеёюя';
var
  s : string;
  i : longint;
  ch : char;
 
function more2(s : string) : boolean;
var
  i, j, count : longint;
  A : array [1..10] of boolean;
begin
 more2 := true;
 for i := 1 to length(S) do
  for j := 1 to 10 do if (S[i]=vowels[j]) and (A[j]=false)  then begin
   A[j] := true;
   inc(count);
  end;
 if count>2 then more2 := false;
end;
 
BEGIN
assign(output,'output.txt');
rewrite(output);
assign(input,'input.txt');
reset(input);
 while NOT EOF do begin
  read(ch);
  if ch <> ' ' then S := S + ch
   else begin
    s := s + ch;
    if more2(S) then write(s);
    s := '';
   end;
 end;
close(input);
close(output);
 
END.

{Файл input.dat содержит несколько строк текста. Слова в тексте могут разделяться пробелами и знаками препинания.
Переписать текст в  файл output.dat, удалив из текста слова, содержащие более двух различных гласных букв}
const
     glasnie : string ='аоэиуыеёюя';
     razd: string = ',.:;!? ';
var
  s : string;
  i : integer;
  ch : char;
  more2:boolean;
 
function check(s : string) : boolean;
var
  i, j, count : longint;
  A : array [1..10] of boolean;
begin
 more2 := true;
 for i := 1 to length(S) do
  for j := 1 to 10 do 
    if (S[i]=glasnie[j]) and (A[j]=false) then begin
       A[j] := true;
       inc(count);
  end;
 if count>2 then check := false
 else check:=true;
end;
 
 
  
 
BEGIN
 
assign(output,'output.dat');
rewrite(output);
assign(input,'input.dat');
reset(input);
 
 
 while NOT EOF(input) do begin
  read(input, ch);
  if (ch in razd)=false then S := S + ch
   else begin
    s := s + ch;
    if check(S) then
      write(output,S);
    s := '';
   end;
 end;
close(input);
close(output);
 
END.