Вывести в алфавитном порядке все буквы, которые встречаются в тексте

program pochti;
 
{$APPTYPE CONSOLE}
uses
  SysUtils;
 
var
s: string;
CurChar: Char;
 // c: Word;
  a: array [1..30] of string;
  r,p,n,o:integer;
  t:string;
begin
  Write('Vvedite stroky:  ');
   readln(s);
     while Length(s)>0 do
begin
  CurChar := s[1]; {Получаем первый символ строки}
  //  c:= 0;
 while (pos(CurChar,s) > 0)  do //Пока в строке встречается данный символ
   begin
   writeln(CurChar);
       delete(s,pos(CurChar,s),1);   //удаляем символ
           end;
   //  write(CurChar);
       if (CurChar <>'') and (CurChar <>' ')   then
       begin
      inc(r);
      a[r]:=CurChar;
    end;
    for p:=1 to r-1 do
       for n:=p+1 to r do
  if a[p]>a[n] then
      begin
        t:=a[p];
        a[p]:=a[n];
          a[n]:=t;
         end;
     writeln(' po alfavitu');
         for o:=1 to r do
   write(a[o]);
        end;
          readln; {Программа ожидает нажатия какой-нибудь клавиши}
      { TODO -oUser -cConsole Main : Insert code here }
end.

uses crt;
const alf:string[52]='AaBbCcDdEeFfGgHhIiJjKkLlMmNnOoPpQqRrSsTtUuVvWwXxYyZz';
var s:string;
    i,j:byte;
begin
clrscr;
writeln('Введите строку из латинских символов');
readln(s);
writeln('Символы по алфавиту');
for i:=1 to length(alf) do
for j:=1 to length(s) do
if alf[i]=s[j] then write(alf[i]);
readln
end.

for i:=1 to length(alf) do
if pos(alf[i],s)>0 then write(alf[i]);

function Del(s:string):string;
var i,j:byte;
begin
i:=1;
while i<=length(s)do
 begin
  for j:=length(s) downto i do
  if s[j]=s[i] then delete(s,j,1);
  inc(i);
 end;
Del:=s;
end;

function Del(s:string):string;
var i,j:byte;
begin
i:=1;
while i<=length(s)do
 begin
  k:=0; 
  for j:=length(s) downto i+1 do
  if s[j]=s[i] then 
   begin
    k:=1;
    delete(s,j,1);
   end;
  if k=1 then delete(s,i,1)   
  else inc(i);
 end;
Del:=s;
end;