Множество, вывод букв по порядку [Доработать] - 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.
Добавлено через 11 часов 28 минут Кто нибудь ответит

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

textual
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.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

14   голосов, оценка 4.071 из 5


СДЕЛАЙТЕ РЕПОСТ