Ввести двумерный массив A

[leshiy_777]

Ввести двумерный массив A (NxM). Каждый четный элемент в массиве
заменить результатом его целочисленного деления на 5. Массив вывести до и после преобразования.

У меня что-то вроде получилось, не знаю только правильно или нет.

program lab72;
var N,M,i,j:integer;
A:array[1..100,1..100] of integer;
B:array[1..100,1..100] of integer;
begin
cls;

writeln('Введите N');
readln(N);

writeln('Введите M');
readln(M);

for i:=1 to N do
    for j:=1 to M do
        begin
             write('A[',i,',',j,'] = ');
             readln(A[i,j]);
             if (A[i,j] mod 2=0) then
             B[i,j]:=A[i,j] mod 5
             else
             B[i,j]:=A[i,j];
        end;

writeln('Исходный массив А: ');

for i:=1 to N do
begin
     for j:=1 to M do
     write(A[i,j]:5);
     writeLn;
end;

writeln;
writeln('Массив А после изменения: ');

for i:=1 to N do
begin
     for j:=1 to M do
     write(B[i,j]:5);
     writeLn;
end;
end.

[ZX Spectrum-128]

Нет. Надо в одном и том же массиве А. Разделите ввод и обработку массива. И надо не остаток от деления найти, а его результат. (div)