f1с файлом}
reset(f1); {Открываем файл для чтения}
readln(f1,N); {Считываем значение N}
for i:='a' to 'z' do
cn[i]:=0;
for j:=1 to N do
begin
read(f1,c); {Считываем символ}
Inc(cn[c]); {Увеличиваем на 1 количество этих элементов}
end;
close(f1); {Закрываем файл f1}
Assign(f2,'sort.out'); {Связываем переменную f2 с файлом}
rewrite(f2); {Открываем файл для записи}
writeln(f2,N);
for i:='a' to 'z' do
for j:=1 to cn[i] do write(f2,i); {Вывод в лексикографическом порядке}
close(f2); {Закрываем файл f2}
End.
text
Text используется для описания текстовых файлов
char
Char - описывает переменные символьного типа, значением может быть любой символ
longint
Longint – целочисленный тип; [-2 млрд. .. 2 млрд.]