сравнение с алфавитом

[challengerr]

Вставка в предыдущую программу

if a1[j]<>a1[1] then
begin
if( a1[j][m]='a')or(a1[j][m]='e')or(a1[j][m]='i')or(a1[j][m]='o')or(a1[j][m]='y') then
begin
; //пустой оператор
end
else
begin
write(a1[j][m]);
end;

... //часть из старой программы с проверкой
end;