Как присвоить к ответу название детали?

program y;
Type Detal=Record
Nazvanie: string[15];
Kolvo: real;
Stoimost: real;
end;
var Fdetal: file of Detal;
S: Detal;
N,i: byte;
Sum: real;
min,max: real;
begin
assign(FDetal,'E:\FM.DAT.txt');
rewrite(FDetal);
write('Количество деталей на складе? ');
readln(N);
for i:=1 to N do
begin
write('Название: ');readln(S.Nazvanie);
write('Количество: ');readln(S.Kolvo);
write('Стоимость: ');readln(S.Stoimost);
write(FDetal,S);
Sum:=Sum+(S.Kolvo*S.Stoimost);
writeln('Общая стоимость деталей: ', Sum);
end;
begin
reset(FDetal);
read(FDetal,S);
min:=S.Kolvo;
max:=S.Kolvo;
while not EOF(FDetal) do 
begin
read(FDetal,S);
if max<S.Kolvo then max:=S.Kolvo;
if min>S.Kolvo then min:=S.Kolvo;
end;
end;
writeln(max);
writeln(min);
writeln('Формирование файла закончено!');
close(FDetal);
end.

var min,max: real;
     nmn,nmx:string;
.................................
min:=S.Kolvo;
max:=S.Kolvo;
nmn:=S.Nazvanie;
nmx:=S.Nazvanie;
while not EOF(FDetal) do 
 begin
  read(FDetal,S);
  if max<S.Kolvo then 
   begin
    max:=S.Kolvo;
    nmx:=nmn:=S.Nazvanie;
   end;
 if min>S.Kolvo then 
  begin
   min:=S.Kolvo;
   nmn:=nmn:=S.Nazvanie;
  end;
end;
end;
writeln(nmx,'  ',max);
writeln(nmn,' ',min);