Удаление слов из текста

[Sazary]

Читайте сообщения компилятора.
f и s используете, хотя они не инициализированы.
Хотели отказаться от множеств, а сами пишете:

if f[s] in gl then

и это при том, что gl - строка.

[Gery]

В смысле не инициализированы?

var
i,s,k:integer;
gl:string='aeiou';
R1,R2,f:string;

begin
writeln (f);
readln(f);
while s<=length(f) do
if f <> gl then
k:=pos(' ',f);
R1:=copy(f,1,k)
 else repeat s:=s+1 until f[s]<>' ';
delete(f,1,k);
writeln(f);
readln
end.

[Utkin]

В прямом, чему равен s в момент старта программы? Вы путаете инициализацию и объявление переменной в этом языке это два абсолютно разных процесса.

[Gery]

А, ну тогда s:=1

[SuperVisor]

Что-то вы какой-то ерундой тут страдаете...
Gery, разве не вы писали в топике:

Вводится произвольный текст до точки, слова разделяются пробелом. Удалить из него все слова, которые начинаются с гласных. Не использовать тип данных string, решить необходимо через char. Вводимый текст это массив...

????
Что изменилось с тех пор?
Вот вам код, чтобы не думать:

const
  gl = 'eyuoia';
var
  S1,s2,buf: string;
begin
  S1:='This is simple example of your program.';
  s2:='';
  Buf:=S1;

  while (Buf[1]=' ') and (Length(Buf)>0) do Buf:=copy(Buf,2,length(Buf)-1);

  while length(buf)<>0 do
  begin

    if pos(LowerCase(Buf[1]),gl)<>0 then
    begin

      if Pos(' ',Buf)<>0 then
        delete(Buf,1,pos(' ',Buf))

      else
      begin
        if Buf[length(buf)]='.' then Delete(Buf,length(Buf),1);
        buf:='';
      end;

    end

    else
    begin

      if Pos(' ',Buf)<>0 then
      begin
        s2:=S2+copy(Buf,1,pos(' ',Buf)-1)+' ';
        delete(Buf,1,pos(' ',Buf));
      end

      else
      begin
        if Buf[length(buf)]='.' then Delete(Buf,length(Buf),1);
        s2:=s2+Buf+' ';
        buf:='';
      end;

    end;

    writeln(s2)

  end;