Напечатать все двузначные числа сумма которых равна 12(Делать через турбо паскаль)

Program random;
var
mo, my:shortint;
begin
mo:=-10;
my:=22;
while (mo+my=12) and (my<100) do begin
writeln(mo,' + ',my,' = 12');
mo:=mo-1;
my:=my+1;
end;
end.