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

[avaness]

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

[Гость]

Вобщем я бы делал так

Код

uses crt;
const n=10;{koli4estvo slow v faile}
var a:array[1..n] of string;
    i,k:byte;
    ch:char;
    log_f:text;
begin
clrscr;
assign(log_f,'1.txt');
reset(log_f);
repeat                           {w etih dwuh tsiklah iz slow v faile}
      inc(i);                    {sozdaetsya massiv strok}
      repeat
      read(Log_f,ch);
      a[i]:=a[i]+ch;
      until (ch=' ') or (ch=#26);
until eof(log_f);
for k:=i downto 1 do
    writeln(a[k]);
readkey
end.

Только слова в файле должны идти в одну строку через пробел.