Как зафиксировать мин и максимальное значение

Подскажите как зафиксировать мин и максимальное значение от датчика температуры. для статистики за 1 сутки пока, что просматриваю по графику хотелось бы сразу цифру видеть

может есть у кого что?

чтото вроде этого
timvr(IN := invr, PT := T#12s);

IF timvr.ET = t#10s AND Treal>tmax THEN tmax:=Treal; END_IF;
IF timvr.ET > t#11s THEN timvr(IN := FALSE); END_IF;

только еще сбос прикрутить суточный

как то проще должно быть, что то вроде IF MAX(current, old)=current THEN tmax:=current; END_IF; old:=current;

Цитата:

---

IF MAX(current, old)=current THEN tmax:=current; END_IF; old:=current;

---

Смысл всего этого сводится к tmax := MAX(current, tmax)

Код:

---

var
  st64 : systime64;
  std,o : systemtimedate;
  get : curtimeex;
  day : uint;

std := o;
get(systemtime := st64, timedate := std);
if std.day <> day then
  day := std.day;
  //сброс суточный
end_if

---

спасибо .