код для задачки в Pascal

[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.