Программирование. Паскаль. Рекурсия.

Question

Дана последовательность символов. Вывести сначала строчные, затем прописные буквы. Последовательность заканчивается точкой. 
знаю как с множествами решить, но надо с помощью рекурсии.. помогите..

Йцукен · Accepted Answer

procedure rec; 
var 
 c: char; 
begin 
 read(c); 
 if c <> '.' then 
 if c in ['a'..'z'] then begin 
 write(c); 
 rec; 
 end 
 else begin 
 rec; 
 write(c); 
 end; 
end; 
 
begin 
 rec; 
end.