Обнаружить в заданном тексте слова, содержащие более 3 — х гласных букв, сначала распечатать их, а потом заменить гласные буквы символом «-» и снова распечатать их — Pascal(Паскаль)

uses crt;
const gl=['A','E','I','O','U','Y','a','e','i','o','u','y'];
      rz=[' ',',','.',';',':','?','!','-'];
var s,s1,s2:string;
    i,j,k:byte;
begin
clrscr;
writeln('Введите текст английскими буквами:');
readln(s);
writeln;
{поскольку нужны только отдельные слова, над строкой можно измываться}
s:=s+',';{добавим запятую}
for i:=1 to length(s)do
if s[i] in rz then s[i]:=',';{заменим все разделители на запятые}
while pos(',,',s)>0 do
delete(s,pos(',,',s),1);{удалим повторяющиеся запятые(если больше 1 подряд)}
s1:='';{будем делать новую строку}
while pos(',',s)>0 do{пока есть запятая}
 begin
  s2:=copy(s,1,pos(',',s)-1);{копируем первое слово до запятой}
  k:=0;
  for j:=1 to length(s2) do
  if s2[j] in gl then k:=k+1;{считаем в нем гласные}
  if k>3 then s1:=s1+s2+' ';{если больше 3, пишем в строку с пробелом}
  delete(s,1,pos(',',s));{удаляем это слово, следующее первое}
 end;
if s1='' then write('Слов с более чеи 3 гласными нет')
else
 begin
  writeln('Слова с более чем тремя гласными:');
  writeln(s1);
  writeln;
  for i:=1 to length(s1) do
  if s1[i] in gl then s1[i]:='-';
  writeln('Замена гласных на "-"');
  writeln(s1);
 end;
readln
end.