Помогите плз решить задачу в Delphi.

> Если поможет.. .
Это чем же может помочь чей-то левый код?
Задание ты тоже мутно описала.

{$apptype console}
var
f: text;
c: integer;
ch: char;
cn: array ['A'..'z'] of integer;

begin
randomize;

// поскольку в задании ничего не сказано о том, каким образом
// данные должны быть записаны в файл, откуда их надо брать
// то просто заполню файл случайными числами
assign(f, 'digits.txt');
rewrite(f);
for c := 1 to 25 do write(f, ' ', random(100));
close(f); // больше ничего с этим файлом делать не надо

// аналогичным образом создам файл со случайными символами из
// произвольно выбранного мною диапазона
assign(f, 'chars.txt');
rewrite(f);
for c := 1 to 77 do write(f, chr(random(ord('z') - ord('A') + 1) + ord('A')));
close(f);

// вывод содержимого файла с символами
reset(f);
read(f, ch);
while not eof(f) do begin
write(ch);
read(f, ch);
inc(cn[ch]);
end;
close(f);
writeln;

// вывод отсортированного содержимого файла с символами
for ch := 'A' to 'z' do
while cn[ch] <> 0 do begin
write(ch);
dec(cn[ch]);
end;
readln;
end.

ну так создайте сортировку то? у вас только ввод и вывод!

Ну собсвтенно сортировки здесь и нет.

приведенный код - бред полнейший - из справочника взяла какого то или из ответов? тем более с такими комментами только для кого то пишут, но никак не собственный код.
прочитай данные их файла и отсортируй их, основного кода у тебя и нет
занеси данные в массив и
for i:=1 to n-1 do
for x:=i+1 to n do
if (a>a[x])
begin
z:=a;
a:=a[x];
a[x]:=z;
end;