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

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