Напечатать в алфавитном порядке все различные строчные буквы, входящие в заданный текст - Pascal

Формулировка задачи:

Напечатать в алфавитном порядке все различные строчные буквы, входящие в заданный текст из 100 литер. помогите исправить ошибки в тексе

procedure TForm1.Button2Click(Sender: TObject);
const
 
  D = ['Г*'..'Гї', 'Вё', 'a'..'z'];
var
  S, SRes : string;
  i : Integer;
  Ds : Set of Char;
  Ch : Char;
begin
  S := Memo1.Text;
  Ds := [];
  for i := 1 to Length(s) do
    if S[i] in D then Ds := Ds + [S[i]];
 
  SRes := '';
  for Ch := 'a' to 'Гї' do
    if Ch in Ds then begin
      if SRes <> '' then SRes := SRes + ', ';
      SRes := SRes + Ch;
    end;
  Memo2.Text := SRes;
end;

То есть это код делфи а надо паскаль

Решение задачи: «Напечатать в алфавитном порядке все различные строчные буквы, входящие в заданный текст»

Листинг программы

const
  ds: string = 'abcdefghijklmnopqrstuvwxy'+
               'абвгдеёжзийклмнопрстуфхцчшщъыьэюя';
var
  s, d: string;
  i: integer;
begin
  Write('Введите строку: '); ReadLn(s);
  for i := 1 to Length(ds) do
    if pos(ds[i], s) <> 0 then Write(ds[i]);
  WriteLn;
end.

Объяснение кода листинга программы

Введен текст, который необходимо обработать.
Введен исходный текст для сравнения.
Создана пустая строка d для хранения результата.
Создана переменная i для подсчета количества символов в исходной строке.
Задана строка ds, которая содержит все строчные буквы русского и английского алфавита.
Выполняется цикл по всем символам строки ds.
Для каждого символа проверяется его наличие в строке s с помощью функции Pos.
Если символ найден, он добавляется в строку d.
После выполнения цикла выводится строка d.