Написать на паскале. : используя код хемминга, подготовить к передаче сообщение длиной n. нужно. . заранее

Лови тут и шифратор и дешифратор 
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.