Работа с матрицами. Код Хемминга

[Чайничек.]

Пишу программу для кодирования/декодирования кода Хемминга 15,11. Реализуется при помощи матриц из 0 и 1.
Матрицу ввожу вручную.

Program Pr34;
Var
X : Array [1..20, 1..20] Of integer;
//целочисленная матрица
M, N  : Integer;
//M - столбцы, N - строки
i, j  : Integer;
//i, j - параметры циклов
p: integer;

Procedure vvod (var X: Array [1..20, 1..20] Of byte);
begin
For i := 1 To N Do
For j := 1 To M Do
Begin
Write ('X[', i, ',', j, '] = ');
ReadLn(X[i,j]);
End;
end;
Procedure print (X: Array [1..20, 1..20] Of byte);
begin
for i :=1 to N do
begin
   for j :=1 to M do
      write ( X [ i , j ]:4);
   writeln ;
end;
end;
Begin
WriteLn ('Ввод элементов.');
Write ('Число строк: ');
ReadLn (N);
Write ('Число столбцов: ');
ReadLn (M);
WriteLn ('Введите поочередно элементы матрицы:');
vvod(X);
print(x);
ReadLn;
End.

Вопрос: как реализовать программно то, что изображено на картинке?