Составить программу, которая читает произвольный текст

[Вавел из ГМТУ]

Ну не множество а массив в который забивается алфавит...

[__STDC__]

такой вариант

var
	s:string;
	x:array['a'..'z'] of string;
	i:byte;
	j:char;
begin
	readln(s);
	for i:=1 to length(s) do
		if (s[i] in ['a'..'z']) then
			x[s[i]] := x[s[i]] + s[i] + ' ';
	for j:='a' to 'z' do 
		write(x[j]);
	readln;
end.

Только массив x пустыми значениями вначале проинициализируйте еще)

***
еще следует добавить проверку на вхождение эл-та в мн-во 'a'..'z', иначе будет выкидывать при встрече любого другого символа (исправил выше)

[Serge_Bliznykov]

а мне больше понравился алгоритм от Daramant
(я бы и сам так же делал)
вот реализация:

var CCount:array['A'..'Z'] of integer;
  k : char;
  i : integer;
  S : string;
begin
  {предварительно обнулим счётчик символов}
  for k:='A' to 'Z' do CCount[k] := 0;

  WriteLn;
  Write('Введите строку:');
  Readln(S);

  {цикл подсчёта}
  for i:=1 to Length(S) do
    if S[i] in ['a'..'z','A'..'Z'] then
      {UpCase позволяет считать
         и строчные и прописные буквы не различая их!}
      inc(CCount[UpCase(S[i])]);

  {теперь вывод результатов}
  for k:='A' to 'Z' do
     for i:=1 to CCount[k] do Write(k,' ');

  readln;
end.