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

Лови тут и шифратор и дешифратор 
VarX : Array[1..20, 1..20] Of integer;M, N  : Integer;//M - столбцы, N - строкиi, j  : Integer;//i, j - параметры цикловp: integer; Procedurevvod (var X: Array [1..20, 1..20] Of byte);beginFor i := 1To N DoFor j := 1To M DoBeginWrite(X[, i, ,, j, ] = );ReadLn(X[i,j]);End;end;Procedureprint (X: Array [1..20, 1..20] Of byte);beginfor i :=1to N dobegin   for j :=1 to M do      write ( X [ i , j ]:4);   writeln ;end;end;BeginWriteLn (Ввод элементов.);Write (Число строк: );ReadLn (N);Write (Число столбцов: );ReadLn (M);WriteLn (Введите поочередно элементы матрицы:);vvod(X);print(x);ReadLn;End.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.