Мне помогли и скинули вот такой код,но как не пыталась,не получилось с ним разобраться, что бы работало)
Заранее спасибо за помощь))
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;