Встроке символов определить наличие гласных букв с оператора if goto

Program gt;
label 1,2;
var s:string;
i,l:integer;
begin
readln(s);
l:=length(s);
i:=0;
1:
i:=i+1;
if(s[i]='a')or(s[i]='o')or(s[i]='u')or(s[i]='e')or(s[i]='i')or(s[i]='y')then begin
writeln('YES');
goto 2;
end;
if(i<l)then goto 1;
writeln('NO');
2:
end.

Так тебе будет ясно по блок- схеме