Присвоение буквам из сообщения двоичного кода в Паскаль.

[stas45rus]

Напишите программу построения помехозащитного кода для сообщения из символов заданного алфавита (алфавит англ.) с использованием бита четности. Программа должна разбивать сообщение на блоки по 7 бит и добавлять 8 бит четности.
Т.е. элементов в англ.алф. 27. Первые 27 цифр, начиная с нуля, перевести в двоичную систему счисления,но выводится должно семизначное число,т.е. с переди дописываем не достающие нули. Потом подсчитываем кол-во единиц в двоичном числе, и если их кол-во нечётно,то сзади дописываем единицу,а если чётно,то ноль. И нужно каждое число отнести к букве алфавита,а потом при вводе сообщения выводить двоичный код для каждой буквы из этого сообщения.
помогите пжл,буду очень благодарен.
Вот примерный код:

Program PomehKod;
Uses Crt;
Var
 st:string;
 b:array[1..255] of integer;
 ed,ost:byte;
 des,i,n,s:integer;
Begin
 ClrScr;
  write('Введите строку: ');
  readln(st);
  for i:=0 to 27 do {перевожу буквы в двоичную систему счисления      27   вместе с пробелом}
   begin
     des:=i;
     ed:=0;
     n:=0;
     while des>0 do
      begin
        n:=n+1;
        ost:=des mod 2;
         if ost=1 then ed:=ed+1;
        b[n]:=ost;
        des:=des div 2;
      end;
     if odd(ed) then b[8]:=1 else b[8]:=0;{присваиваем 1 если odd(ed)}
   for s:=8 downto 1 do
    write (b[s],' ');
    writeln;
   end;
  writeln(st);
 readln;
End.

А вот как присвоить буквам каждое двоичное число незнаю. А ещё нужно ввести сообщение и каждой букве из этого сообщения вывести соответствующий двоичный код.



___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[notHaker]

Эмм. Код оформите по правилам, а то читать совсем невозможно.

[Serge_Bliznykov]

Для "затравки"...

для "перевода" буквы (точнее любого символа) используйте функцию

xxxx := ORD(символ);

Эта функция вернёт Вам код символа (в таблице ASCII, если быть точным).

[notHaker]

Вообще подскажу, что в таблице ASCII английский умещается в значение 127 (7F), где как раз и остаётся свободный бит, те можно сделать всё горазд проще.

Program PomehKod;
Uses Crt;
Var
	stringBuffer : string;
	charOrd : byte;
	codeTable:array[0..127] of integer;
	parity, ost : byte;
	codeSymbol, index, number, dest, mask :integer;
Begin
 ClrScr;
 Write('Введите строку: ');
 Readln(stringBuffer);
{здесь считаем таблицу символов-кодов}
 for index := 0 to 127 do {в таблице ASCII 128 англ. яз. кодов}
	begin
	dest := index;
	parity := 0;
	number := 0;
	while dest > 0 do
	begin
		ost := dest mod 2;
		if ost > 0 then parity := parity + 1;
		codeTable[index] := codeTable[index] or (ost shl number); {сдвигаем текущий бит и добавляем к символу}
		dest := dest div 2;
		number := number + 1;
	end;
    if odd(parity) then 
		codeSymbol[index] := codeSymbol[index] or $70  {если чётная то выставляем старший бит закодированного символа в 1}
	else 
		codeSymbol[index] := codeSymbol[index] and $7F; {если нет то просто очищаем старший бит}
	end;
{а здесь выводим соответствия символа вводимой строки и кодируемого символа}
	for index := 1 to lenght(stringBuffer) do
	begin
		write(stringBuffer[index] + ' : ');
		codeSymbol := codeTable[ord(stringBuffer[index])];
		mask := 1;
		for number := 6 downto 0 do {выводим кодируемый символ и старший бит не учитываем. или же 7, если учитывать и выводить}
		begin
			{Здесь берём бит, далее сдвигаем его (получаем маску), затем с помощью этого бита очищаем все биты символа кроме нужного и сдвигаем обратно}
			write(chr((codeSymbol and (mask shl number)) shr number)); {mask нужна только для большего понимания}
		end;
		writeln;
	end;
 readln;
End.

Как-то так. Коментариев мало, но понять можно. Хотя нагородил конечно да... Спрашивай, если будут вопросы.

ЗЫ: Компилятора под рукой нет. Могут быть ошибки.