Вывести алфавит слова

[Revival001]

1)Требуется вывести алфавит слова, то есть все БУКВЫ из которых состоит слово.

program z1;
uses crt;
var
i: integer;
s,s1, s2: string;
begin
clrscr;
read(s);
for i:= 1 to length(s) do
if (ord(s[i])>ord('a')) and (ord(s[i]<ord('z')) then
s1:= s1 + s[i];
readkey;
end.

Дошел до того, что убирает все "левые символы кроме букв". Как теперь сделать чтобы в результате они не повторялись.
2)Вывести слова на букву к

program z1;
uses crt;
var
i: integer;
s,s1, s2: string;
begin
clrscr;
read(s);
for i:= 1 to length(s) do
begin
s1:= s[i-1]+s[i];
if s1=' k'then
//Вот тут ступор.
end;
readkey;
end.

Заврта экзамен по информатике, может попасться любая из этих задач, остальные решил, а эти две никак немогу.

[Stilet]

Требуется вывести алфавит слова, то есть все БУКВЫ из которых состоит слово.

Чет мало понял?... Так что ли?

  var q,s:string;i:integer;
begin
 s:='qwerterw';q:='';
 for i:=1 to length(s) do
  if pos(s[i],q)=0 then begin
   writeln(s[i]);
   q:=q+s[i];
  end;
  readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.

[Revival001]

Спасибо, похоже на то