const glasnye:array[1..10] of string = ('а','е','ё','и','о','у','ы','э','ю','я');
var i:byte;
s:string = 'Съешь ещё французских булок, да выпей чаю';
begin
for i:=1 to length(glasnye) do begin
if pos(glasnye[i],s) = 0 then write(glasnye[i],' ') // если функция pos() возвращает не ноль, значит такая подстрока присутствует в строке, иначе pos() выводит 0.
end;
end.