Паскаль. написать программу для трехзначного числа и вычислить насколько старший разряд больше младшего

Var i, n:integer; b:array[1 ... 3] of integer; begin write ('Type integer: ') ; readln (n) ; if n b[2] thenwriteln ('Цифра сотен больше десятков ', b[3] - b[2]) elsewriteln ('Цифра сотен меньше десятков ', b[2] - b[3]) ; if b[2] > b[1] thenwriteln ('Цифра десятков больше единиц ', b[2] - b[1]) elsewriteln ('Цифра десятков меньше единиц ', b[1] - b[2]) ; end.