Задание в паскале. Срочно!

Выделить первую и вторую цифру двухзначного числа с комментарием. Использовать функции div и mod. То есть программа должна работать так: вводим число 75, на экране появляется надпись: первая цифра числа - 7, вторая цифра числа - 5.

var  x,a,b:integer;begin  Write('Введите двузначное число>> ');  Readln(x);    If (x in [10..99]) then                         begin                           a:=x div 10;                           b:=x mod 10;                           writeln('Первая цифра- ',a,',','Вторая цифра- ',b)                         end     else         writeln('Число не двузначное') end.                        

var  x,a,b:integer;begin  Write('Введите двухзначное число>> ');  Readln(x);    If (x in [10..99]) then                         begin                           a:=x div 10;                           b:=x mod 10;                           writeln('Первая цифра- ',a,',','Вторая цифра- ',b)                         end     else         writeln('Число не двухзначное') end.