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