// PascalABC.NET 3.0, сборка 1160 от 05.02.2016
begin
  ReadlnString('Слово:').Distinct.Println('')
end.

Тестовое решение:
Слово: балалайка
балйк

И, на всякий случай, вариант "как в школе учат":

// PascalABC.NET 3.0, сборка 1160 от 05.02.2016
var
  w,r:string;
  i:integer;
begin
  Write('Слово: '); Readln(w);
  r:=w[1];
  for i:=2 to Length(w) do
    if Pos(w[i],r)=0 then r:=r+w[i];
  Writeln(r)
end.