Прога про текстовый файл, Пожалуйста, помогите кто-нибудь!!! Опции

[avaness]

Вот задали такую задачку:
В текстовом файле записаны слова. Определить, сколько раз встречается каждое слово и вывести в обратном порядке.
Прошу выслать код

[Bokul]

а как добавить процедуру, чтобы она выводила слова по частоте появления?

Пишешь процедуру и потом вызываешь ее в основной программе

а если ещё и по частоте появления вывести, сильно муторно? если не трудно - черканите. буду очень признателен!

Лови...

procedure different(ar:mas; n:integer);
var i,j,k,num,sum:integer;
    ar_buf:mas;
    b:boolean;
begin
num:=0;
sum:=0;
for j:=1 to n do
    begin
         b:=false;
         for k:=1 to num do
             if ar[j]=ar_buf[k] then b:=true;
         if b=false then
            begin
                 for i:=j to n do
                     if ar[j]=ar[i] then inc(sum);
                 inc(num);
                 ar_buf[num]:=ar[j];
                 writeln(ar[j],' : ',sum,' times');
                 sum:=0;
            end;
    end;
end;

мне надо сдать прогу завтра в 8.30 утра.

Успел?