Определить, состоит ли двузначное число, введенное с клавиатуры, из одинаковых цифр? (напишите код паскаль)

Var a: integer; begin     write('введите число: ');   read(a);     if((a div 10) = (a mod 10)) then writeln('цифры одинаковые')     else writeln('цифры не одинаковые'); end.

program helloworld;

var a: array of integer;

var n, min, max, i, variable: integer;

begin

    min : = 32767;

    max : = 0;

    readln(n);

    for i : = 0 to n do begin  

        readln(variable);

        if (variable > 0) and (variable mod 2 = 0) and (variable > max) then

            max : = variable;

        if (variable > 0) and (variable mod 2 = 0) and (variable < min) then

            min : = variable;

    end;

    if (max < > 0) and (min < > 32767) then

        writeln(min, ' ', max)

    else  

        writeln(-1);

end.

program numberofdifferences;

var sum, a, b: integer;

begin

    sum : = 0;

    readln(a);

    b : = a;

    while a < > 0 do begin  

        readln(a);

        if ((a < 0) and (b > 0)) or ((a > 0) and (b < 0)) then

            sum : = sum + 1;

        b : = a;

        end;

  writeln(sum);

end.