Процедура поиска меньшего слова, по первой букве слова( по алфавиту) Опции

[_Mary_]

Делаю процедуру поиска наименьшего слова...т.е. нужно по первой букве найти слово, и вывести запись на экран. (наименьшая буква,это последняя в алфавите)
Мне помогли и скинули вот такой код,но как не пыталась,не получилось с ним разобраться, что бы работало)
Заранее спасибо за помощь))

procedure SearchMin;
var
  f: file of school_subjects;
  m : school_subjects;
  i, j, minn : integer;
  min: string;
  a : array[1..20] of string;
begin
  min := 'z';
  for i := 1 to 100 do a[i] := '';
  reset(f);
  i := 0;
  while not Eof(f) do begin
     i := i+1;
     read(f,m);
     a[i] := m.prepod;
  end;
  Close(f);
  for j := 1 to i do if min[1]>a[j,1] then begin
     min := a[j];
     minn := j;
  end;
  reset(f);
  for j := 1 to minn do read(f,m);
  vivod(m);
  Close(f);
  end;

[мисс_граффити]

однако...

  a : array[1..20] of string;
...
  for i := 1 to 100 do a[i] := '';

[Гость]

подскажи,пожалуйста,как изменить надо

[_Mary_]

предыдущий пост от меня

[Гость]

с чем связана ошибка Disk Read Error?

[Ozzя]

Может быть, Assign(f,'твой файл'); надо поставить? Или у тебя где-то до reset'а оный стоит?