Функция проверки, является ли символ гласной буквой. на Паскаль. Небольшая ошибка!

[Krugan]

Здравствуйте! Помогите плиз исправить код выделено красным. и ище гдето. оч надо)=(

{ Проверяет, является ли символ гласной буквой } Function Glasn(sim:char): boolean; const
{ гласные буквы }
ListOfGlasn:string ='АаЕеИиОоУуЫыЭэЮюЯя'; var
p: byte; { позиция проверяемого символа
в списке гласных } begin
p:=Pos(sim,ListOfGlasn); { !!!! } if p о 0 { символ найден в списке }
146
n Glasn:=True else Glasn:=False;
end;

[ZX Spectrum-128]

pos выдает позицию совпадения, если совпадений нет, то выдает 0
Значит, в вашем случае должно быть

if p<>0 then

Function Glasn(sim:char): boolean;
const
  ListOfGlasn:string ='уеыаоэяиюУЕЫАОЭЯИЮ';
var
  p: byte;
begin
  p:=Pos(sim,ListOfGlasn);
  if p <> 0 then
    Glasn:=True
  else
    Glasn:=False;
end;

Или так:

Function Glasn(sim:char): boolean;
const
  ListOfGlasn:string ='уеыаоэяиюУЕЫАОЭЯИЮ';
begin
  Glasn:=Pos(sim,ListOfGlasn) <> 0;
end;