Что то не выходит на Паскале

[Bagsi]

Дан текст из малых латинских букв, за которым следует точка. Вывести в алфавитном порядке все буквы, которые входят в этот текст по одному разу.

Program Problem6;
uses crt;
const max_n = 26;
var
a:array[1..max_n] of char;
i,j,n:integer;
buf:char;
begin
clrscr;
write('razmer stroki n=');
readln(n);
writeln('Zadanni massiv');
for i:=1 to n do
begin
write('a[',i,']=');
readln(a[i]);
end;
for i := 2 to n do
for j := n downto i do
if a[j] < a[j-1] then
begin
buf:= a[j];
a[j] := a[j-1];
a[j-1] := buf
end;
writeln('Uporadochen po alfavitnomu poradku');
for i := 1 to n do write(a[i], ' ');
readkey;
end.

[AVer]

Самый простой вариант решения:

Var Letters:Array[65..122] of Integer;
    S:String;
    I:Integer;
begin
WriteLn('Vvedite Stroku');
ReadLn(S);
For I:=1 To Length(S) Do
Inc(Letters[Ord(S[i])]);
For I:= 65 To 122 Do
If Letters[I] = 1 Then
WriteLn(Chr(I));
ReadLn;
end.

[mihali4]

Сообщение от AVer

Самый простой вариант решения:

Var Letters:Array[65..122] of Integer;
    S:String;
    I:Integer;
begin
WriteLn('Vvedite Stroku');
ReadLn(S);
For I:=1 To Length(S) Do
Inc(Letters[Ord(S[i])]);
For I:= 65 To 122 Do
If Letters[I] = 1 Then
WriteLn(Chr(I));
ReadLn;
end.

Это называется "изящно и со вкусом"...

[puporev]

Censored! Может это решение кому нибудь другому пригодится.

Выводятся буквы, которые встречаются в тексте по одному разу 
в алфавитном порядке.
program Vechnaja problema # N;
uses crt;
var
    s,x:string; строки из малых латинских букв
    i,j,n:integer;  (можно и только из больших и только из малых 
begin                или больших русских без ё и Ё, а умеючи из любых)   
   clrscr;
   writeln('введите исходный текст:');
   readln(s);
   n:=length(s);           сортируем текст во возрастанию
   for i:=1 to n-2 do
     begin
       for j:=1 to n-2 do
         if s[j]>s[j+1] then
            begin
               x[1]:=s[j];s[j]:=s[j+1];s[j+1]:=x[1];
            end;
     end;
   x:='';                   копируем нужные буквы в строку Х
   for i:=1 to n-1 do         
      if (s[i]<s[i+1]) and (s[i]>s[i-1]) then
      x:=x+copy(s,i,1);
   writeln('обработанный текст:');
   writeln(x);
   readln;
end.

From Stilet: Не нужно так говорить, если вопрашающий не провоцировал такой ответ, фразу "Объяснять Вам Bagsi что либо видно бесполезно" - считаю оскорблением без причины

[AVer]

From Stilet: Не нужно так говорить, если вопрашающий не провоцировал такой ответ, фразу "Объяснять Вам Bagsi что либо видно бесполезно" - считаю оскорблением без причины

Не уместно. Видимо ты не знаешь всей сути ситуации. Этот человек не ищет знаний. Он тупо выкладывает задания и ждет решений. Как экс-модер я считаю что ты не прав. Сорри, не по теме...