Найти все двузначные числа сумма цифр которых равна 7)и составить программу по min и

Var min, max, x: byte; begin max=0; min:=100; for x:= 10 to 99 do begin if (x mod 10)+(x div 10)=7 then begin writeln (x); if x>max then max:=x; if x