Массив из символов строки

Задача. Сформировать массив из символов, встречающихся в тексте.
Решение.

Program Psk;
Var
s : String;
ns: String;
i, j, ks, jn : Integer;
Begin
writeln('Введите строку');
readln(s); 
n:=length(s);
ks:=0; 
For i := 1 to n do 
begin
jn := 0; 
for j := 1 to ks do 
If ns[j]=s[i] then
jn:=J;
If jn=0 then 
begin
ks := ks+1;
ks[ks] := s[i];
end;
end;
Writeln('Символы, входящие в исходную строку'); 
For i := 1 to ks do
Write(ns[i]);
End.