Вывести полученный массив на экран в общепринятом виде и найти количество единиц и двоек в этом массиве

uses
  SysUtils;
var
a: array [0..100, 0..100] of Integer;
i,j,k,r,N,M: Integer;
begin
Writeln('Enter line number');
readln(N);
Writeln('Enter column number');
readln(M);
//Ввод матрицы А
Writeln('Enter matrix');
for i := 1 to N do
 begin
  for j := 1 to M do
    begin
      Read(a[i,j]);
    end;
  Readln;
end;
Writeln;
Writeln('Matrix A');
//Вывод матрицы А
for i := 1 to N do
 begin
  for j := 1 to N do
    begin
      a[i,j]:=a[i,j] div 5;
      Write(a[i,j],' ');
    end;
  Writeln;
end;
//Подсчёт единиц и двоек
r:=0;
m:=0;
for i := 1 to N do
 begin
  for j := 1 to N do
    begin
      if a[i,j]=1 then
      m:=m+1;
      if a[i,j]=2 then
      r:=r+1;
    end;
  Writeln;
end;
 
Writeln;
Writeln('number of units=',m);
Writeln('number twos=',r);
 
Readln;
end.

var M: array [1..10,1..10] of integer;
i,j:integer; // счётчики циклов
e,d:integer; // количество единиц и двоек;
 
Begin
// Заполняем двумерный массив
for i:= 1 to 10 do
  for j:= 1 to 10 do begin 
    readln(M[i,j]); // ввод числа с клавиатуры;
    //M[i,j]:= random(9); // число случайное;
    M[i,j]:= M[i,j] mod 5;
    end;
// Выводим массив на экран
for i:= 1 to 10 do writeln(M[i]);
// Подсчитываем количество единиц и двоек
for i:= 1 to 10 do
  for j:= 1 to 10 do 
    begin 
    if M[i,j] = 1 then e+=1;
    if M[i,j] = 2 then d+=1;
    end;
writeln();
writeln('Единиц: ',e);
writeln('Двоек: ',d);
End.