Помогите решить задачку (строки)

[Людик]

Ввести строку, содержащую строчные русские буквы.
Расположить символы строки от я до а.

Спасибо заранее.

[pomoshnic]

Вот такой

uses crt;
var c:char;
begin
clrscr;
for c:='я'downto'А' do write(c,' ');
readln;
end.

[Людик]

А ввод строки не нужен?

[pomoshnic]

Сообщение от Людик

А ввод строки не нужен?

Извини незаметил.
С вводом строки это выглядит так

uses crt;
var c:char;
     s:string;
     b:byte;
begin
  clrscr;
  write('Введите текст: ');
  read(s);
  clrscr;
  for c:='я'downto'А' do
    for b:=1 to length(s) do
      if s[b]=c then write(s[b],' ');
  readln;
  Readln{Без этого не показует результат}
end.

[Людик]

Спасибо