[Asinkrit]

На счет правильности не знаю, вот тебе рабочий вариант:

Код:

{$APPTYPE CONSOLE}

uses
  SysUtils;

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

begin
  Writeln('Enter string ');
  Readln(S);
  sb:=['b','d','g','j','n','m','r','v','z','w'];
  Delete(S, 1, Pos(' ', S));
  b:=length(s);
  while (b > 1) and (S[b]<>' ') do Dec(b);
  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.