Алфавитный порядок слов.., запутался Опции

[b0b]

вечер добрый.
задачка такая.

Дан текстовый файл с уже набранным текстом. напечатать в алфавитном порядке все слова из данного файла, имеющих заданную длину n.

написал процедуру открытия файла:

procedure open(var f:text);
var name:string[40];
    ok:boolean;
begin
  repeat
    write('Vvedite name of file: ');
    readln(name);
    assign(f,name);
    {$i-}reset(f); {$i+}
    ok:=IOResult=0;
  until ok=true;
end;

и процедуру чтения слов из файла:

procedure word(var f:text; var w:string);
var ch:string;
begin
  repeat
    readln(f,ch);
  until ch <> ' ';
    w:='';
    repeat
      w:=w+ch;
      readln(f,ch);
    until (ch=' ') or (eoln(f)) or (eof(f));
    if ch <> ' ' then w:=w+ch;
    if eoln(f) then readln(f);
end;

а вот дальше чет немогу...
нужно срочно..

Сообщение отредактировано: b0b - 5.12.2005 1:24

[b0b]

program 2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var f1:text;
    n,count,i,k:integer;
    s:string;
    arr:array[1..200] of string[50];
    next_word:string;

procedure open(var f:text);
var name:string[40];
    ok:boolean;
begin
  repeat
    write('Vvedite name of file: ');
    readln(name);
    assign(f,name);
    {$i-}reset(f); {$i+}
    ok:=IOResult=0;
  until ok=true;
end;

procedure word(var f:text; var w:array of string);
var ch:string;
begin
  repeat
    readln(f,ch);
  until ch <> ' ';
    w[i]:='';
    repeat
      w[i+1]:=w[i]+ch;
      readln(f,ch);
    until (ch=' ') or (eoln(f)) or (eof(f));

    if ch <> ' ' then w[i+1]:=w[i]+ch;
    if eoln(f) then readln(f);
end;
begin
   write('Vvedite dlinu: ');
   readln(n);

   open(f1);
   writeln;

   count:=0;
   while not eof(f1) do begin
    word(f1,next_word);
    if length(next_word) = n then begin
      inc(count); arr[count]:=next_word;
    end;

end;
 readln;
end.

вот все собрал. бардак какой-то получился .
непашет нифига..