Множество, вывод букв по порядку [Доработать] - Pascal ABC

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

Дан текст. Вывести в алфавитном порядке все буквы текста, входящие в него не менее двух раз. Текст считывать из txt файла. Кол-во строк и их длина не известны. Я вот так решил, но у меня он не запускает чего-то не хватает !

Program zadacha2;
 var
   a, b : set of char;
   i : integer;
   s : string;
   ch : char;
   f:text;
 begin
 assign(f,'F:/test.dat');
 reset(f);
 read(f,s);
   a:= [];
   b:= [];
   While not eof(f) do begin
   read(f,s);
   For i:=1 to length(s) do 
    If s[i] in a Then b:=b+[s[i]] Else a:=a+[s[i]];
    end;
 writeLn('Буквы которые повторяются 2 и более раз: ');
 {Буквы повторяются более 1 раза >=2}
   for ch:='a' to 'я' do
     if ch in b then
       write(ch,',');
close(f);
end.

Кто нибудь ответит

Решение задачи: «Множество, вывод букв по порядку [Доработать]»

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

Program zadacha2;
 var
   a, b : set of char;
   i : integer;
   s : string;
   ch : char;
   f:text;
 begin
 assign(f,'F:/test.txt'); //файл текстовый
 reset(f);
 a:= [];
 b:= [];
  While not eof(f) do
   begin
    readln(f,s); //строки читает readln, не read
    For i:=1 to length(s) do
    If s[i] in a Then b:=b+[s[i]] Else a:=a+[s[i]];
   end;
 close(f);
 writeLn('Буквы которые повторяются 2 и более раз: ');
 {Буквы повторяются более 1 раза >=2}
 for ch:='a' to 'я' do
 if ch in b then write(ch,',');
end.

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

Этот код написан на языке Pascal ABC и выполняет следующие действия:

Объявляет переменные: a, b, i, s, ch, f.
Устанавливает файл для чтения и записи в директорию F:/test.txt.
Инициализирует пустые множества a и b.
В цикле while считывает строку из файла до конца файла.
В цикле for проверяет каждый символ в строке.
Если символ уже присутствует в множестве a, то добавляет его в множество b.
Если символ не присутствует в множестве a, то добавляет его в множество a.
После завершения цикла while закрывает файл.
Выводит на экран буквы, которые повторяются более 1 раза.
Вложенный цикл for перебирает все буквы от 'a' до 'я' и проверяет, есть ли они в множестве b.
Если буква присутствует в множестве b, то выводит ее на экран, разделенной запятой.