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

[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 - 4.12.2005 21:24

[volvo]

Погоди, у тебя же есть процедура чтения слов... Что, нельзя после получения очередного слова проверить его длину? Как-то вот так:

var
  arr: array[1 .. 200] of string[50];
  count: integer;
  next_word: string;
...
{ открываем файл, запрашиваем чему равно N ... }
  count := 0;
  while not eof(f) do begin

    GetWord(f, next_word); { это твоя функция чтения слов из файла }
    if length(next_word) = n then begin
      { добавляем слово в массив }
      inc(count); arr[count] := next_word;
    end;

  end;

  { и сортируем массив }
...