Составьте программу которая выводит на экран все двухзначные числа сумма цифр которых равна 7

Program n_1;
var i,a:integer;
  begin
    
    for i := 10 to 99 do  begin
      a := i mod 10 + i div 10;
        if a = 7 then
          writeln(i);
    end
  end.