Найти сумму двухзначных чисел в которых цифра единиц больше десятков.(паскаль)

var i,sum,des,ed:integer;beginsum:=0;for i:=10 to 99 dobegindes:=i div 10;ed:=i mod 10;if(des<ed) then sum:=sum+i;end;writeln("summa = ",sum);end.