Вопрос по информатике:

Вот программа для ввода
program zak; uses crt;
type danie=record
litri:string;
cislo:string;
end;
DanieVodi=file of danie;
var DV:DanieVodi;
D:danie;
i,n:integer;
begin clrscr;
assign(DV,'d:\azaz.txt');
rewrite(DV);
for i:=1 to 32 do
begin
writeln('BBeDuTe 4ucJlo u Mec9lTc oTTDeJl9l9l To4Kou'); readln(D.cislo);
writeln('BBeDuTe KoJlu4ecTBo IIoTpa4eHou BoDbl');
readln(D.litri);
write(DV,D);
end;
close(DV);
readln;
end.


после того как ввёл все данные написал программу для считывание с файла
uses crt;
type danie=record
litri:string;
cislo:string;
end;
DannieVodi=file of danie;
var DV:DannieVodi;
D:danie;
i,n:integer;
cislo1:string;
begin clrscr;
assign(DV,'d:\azaz.txt');
reset(DV);
write('BBeDuTe 4ucJlo u Mec9lTc oTTDeJl9l9l To4Kou:');
read(cislo1);
while not eof(dv) do
begin
read(DV,D);
if cislo1=D.cislo then writeln('6blJlo IIoTpa4eHo "',D.litri,'" JluTpoB BoDbi');
end;
close(DV);
readln;
end.

помогите добавить в эту программу:
1)что бы выводило максимальное и минимальное количество потраченной воды за всё время
2) можно ли добавить repeat, то есть когда запрашивает ввести число, что бы запрашивало до тех пор пока не введём слово 'stop'