Пожалуйста, помогите с решением 7 ой задачи. Программку нужно написать в

USES crt;VAR a,b,c: integer;begincls;repeatWRITE('Введите двухзначное число: '); READLN (a);until (agt;=10)and(alt;=99);b:=a div 10;c:=a mod 10;if bgt;c then writeln ('1-ая цифра больше.');if blt;c then writeln ('Вторая цифра больше.');if b=c then writeln ('Первая и 2-ая цифры равны.');END.

// PascalABC.NET 3.3, сборка 1576 от 16.11.2017
// Внимание! Если программка не работает, обновите версию!


Begin
var a:= ReadInteger('Введите двузначное число');
If a mod 10 gt; a div 10 then
  Writeln('2-ая цифра числа - больше')
else
  if a mod 10 lt; a div 10 then
    Writeln('1-ая цифра числа - больше')
  else
    Writeln('Обе цифры равны');
end.