помогите з задачое пожалуйста . (нужно отредактировать код)

[misha_beginner]

Вот сама задача:
напечатать в алфавитном порядке все маленькие русские буквы, которые входят в даный текст из 200 букв.
что как бы мне помогли:

Код: Выделить всё

var
  s : string;
  i : byte;
  c : set of char;
begin
  c := [];
  write('введите текст: ');
  readln(s);
  for i := 1 to length(s) do
    if s[i] in ['a'..'я'] then include(c, s[i]);
  writeln('буквы: ', c);
end.

(но препод может не поверить) ну код вроде работает:
вот до чего я додумался:
(на картинке) но не работает код: пишет там нельзя применять integer к char ! как бы просто эту задачку написать? помогите плиз!
был еще вариант If c>=а and c<= 'я' then writeln (c) целый день сижу ничего не выходит (

[Naeel Maqsudov]

На правах тоже преподавателя ставлю Вам два балла автоматом. Садитесь.

[misha_beginner]

прошу помогите плиз хоть как-то составить программу. мне не до шуток сейчас

[Naeel Maqsudov]

Код: Выделить всё

var
  s : string;
  c : char;
begin
  write('введите текст: ');
  readln(s);
  write('буквы: ');
  for c := 'а' to 'я' do if pos(c,s)>0 then write(c,' ');
end.

В вашем коде, кстати в "in ['a'..'я']" стоит английская "a".

[misha_beginner]

очень вас благодарю