Составить программу вывода на экран в алфавитном порядке всех символов заданного текста, входящих в него по одному разу.

текст программа читает из файла text1.txt

const
n = 255;
iFNameDef = 'text1.txt';
type my_arr = array [ 0..n ] of byte;
var
a : my_arr;
f : text;
stIF : string;
i, m : integer;
begin
for i := 0 to n do a[ i ] := 0;
assign( f, iFNameDef );
{$I-}
reset( f );
{$I+}
if IOResult <> 0
then
begin
writeLn( 'Error!! File not found: ', iFNameDef );
halt;
end;
while not eof( f ) do
begin
readLn( f, stIF );
writeln(stIF);
m := length(stIF);
for i := 1 to m do if a[ Ord(stIf[ i ]) ] < 5 then a[ Ord(stIf[ i ]) ] := a[ Ord(stIf[ i ]) ] + 1;
end;
close(f);
writeln; writeln;
for i := 0 to n do if a[ i ] = 1 then write( chr(i) );
readln;
end.

Составить программу (на неизвестном языке) вывода на экран в алфавитном порядке всех символов заданного текста, входящих в него по одному разу.

Ну, берете и создаете массив на 256 элементов, сколько кодов символов может быть. Всем элементам присвоить 0. Потом считываем символ текста и массив [код символа] = массив [код символа] + 1; делаете.
Когда все символы текста считаете, то по порядку выводите весь массив из 256 элементов.
Вот так где-то

3вупапа