[Asinkrit]

Понял что ты имеешь ввиду, держи:

Код:

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  S, NewS:String;
  b:byte;
  sb: set of char;

begin
  Writeln('Enter string ');
  Readln(S);
  sb:=['b','d','g','j','n','m','r','v','z','w'];
  for b:=1 to Pos(' ', S) do
    if S[b] in sb then
      sb:=sb-[S[b]];
  Delete(S, 1, Pos(' ', S));
  b:=length(s);
  while (b > 1) and (S[b]<>' ') do
    begin
    if S[b] in sb then
      sb:=sb-[S[b]];
    Dec(b); 
    end;
  Delete(S, b, Length(S)-(b+1));
  for b:=1 to Length(S) do
    if S[b] in sb then
      begin
      sb:=sb-[S[b]];
      write(S[b],' ');
      end;
  readln;
end.