Делаю процедуру поиска наименьшего слова...т.е. нужно по первой букве найти слово, и вывести запись на экран. (наименьшая буква,это последняя в алфавите)
Мне помогли и скинули вот такой код,но как не пыталась,не получилось с ним разобраться, что бы работало)
Заранее спасибо за помощь))
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] := '';
подскажи,пожалуйста,как изменить надо
предыдущий пост от меня
с чем связана ошибка Disk Read Error?
Может быть, Assign(f,'твой файл'); надо поставить? Или у тебя где-то до reset'а оный стоит?