Дано четырёхзначное число n. проверить, будет ли сумма его цифр чётным числом

Var
n:integer;
Begin
Write('Введите четырёхзначное число ');
Readln(n);
if ((n>999) and (n<10000)) or ((n>-10000) and (n<-999)) then Begin
Write('Сумма цифр числа ',n);
if ((n div 1000 + n div 100 mod 10 + n div 10 mod 10 + n mod 10) mod 2) = 0 then Write(' чётна') else Write(' не чётна');
End
else write('Число ',n,' не четырёхзначное. Перезапустите программу');
End.

Program q;
    var a:array[1..7,1..7] of integer; min7,sum1,odd,i,k:integer; avg5:real;
begin;
    randomize;
    for i:=1 to 7 do begin;
        for k:=1 to 7 do begin;
            a[i,k]:=random(-10,10);
            if a[i,k] mod 2 = 1 then odd+=1;
        end;
    end;
    min7:=a[1,7];
    for i:=1 to 7 do if a[7,i]<min7 then min7:=a[i,7];
    for i:=1 to 7 do sum1+=a[i,1];
    for i:=1 to 7 do avg5+=a[5,i];
    avg5/=7;
    for i:=1 to 7 do a[1,i]:=1;
    write('Минимальный элемент в 7 столбце ', min7, ', сумма элементов первой строки ', sum1, ', кол-во нечётных чисел ', odd);
end.

Enter - ввод. Она предназначена для того, чтобы опускать текст ниже и переходить на следующую строку.
shift обычно используется для написания заглавных букв.
Кнопка Delete служит для удаления. 
esc Полное ее название Escape (произносится «Эске́йп») и означает она «Выход». При этой кнопки мы можем закрыть некоторые программы. В большей степени это касается компьютерных игр. 
Кнопка Insert нужна для того, чтобы печатать текст поверх уже напечатанного. Если Вы нажмете на эту клавишу, то новый текст будет печататься, стирая старый. Чтобы это отменить, нужно снова нажать на клавишу Insert.
Backspace — клавиша на клавиатуре компьютера, служащая для удаления символа (символов), находящегося перед курсором (слева при направлении письма слева направо или справа при направлении справа налево). Вне области набора текста ← Backspace часто служит для возврата на предыдущий экран программы или веб-страницу в браузере.