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

program zz1;

var a, b,  n, i:integer; // задаем переменные целого типа

begin

for i:=10 to 99 do  // организуем цикл, в котором переберем все двузначные числа

begin

a:=i div 10;  // получаем первую цифру двузначного числа

b:=i mod 10;   // получаем вторую цифру двузначного числа

if b gt; a then n:=n + i; // проверяем, если цифра единиц больше числа 10-ов, то прибавляем двузначное число в сумму

end;

write( сумма двузначных чисел, в которых цифра единиц больше 10-ов = , n); // выводим ответ на экран

end.