Дано трехзначное число

Program Digit; Var a, a1, a2, a3: Integer; Label Start; BeginStart: WriteLn ('Введите трехзначное число'); ReadLn (a); If (a < 100) Or (a > 999) ThenBeginWriteLn ('Вы ввели не трехзначное число'); Goto Start; End; a1: =a div 100; a2: =(a — a1*100) div 10; a3: =a — a1*100 — a2*10; If a1 > a3 ThenWriteLn ('Первая цифра больше последней') ElseWriteln ('Последняя цифра больше первой'); If a1 > a2 ThenWriteLn ('Первая цифра больше второй') ElseWriteln ('Вторая цифра больше первой'); If a2 > a3 ThenWriteLn ('Вторая цифра больше последней') ElseWriteln ('Последняя цифра больше второй'); ReadLn; End.