Простейший двоичный код для представления символов некоторого алфавита, можно построить, записывая номера букв в алфавите в двоичной сиcтеме счисления .выпишите кодовые комбинации для двоичного кода минимальной разрядности, представляющего буквы русского алфавита . Считайте буквы ъ и ь одинаковыми.

Procedure TForm1.Button1Click(Sender: TObject);
begin
    If FontDialog.Execute then
        RichEdit1.SelAttributes.Assign(FontDialog1.Font);
        RichEdit1.SetFocus;
    End;
end;

делфи у меня не установлены за совершенной ненадобностью, потому проверить возможности нет, но догадки показать могу.
 Не уверенна что RichEdit1.SelAttributes.Assign(FontDialog1.Font) выставляет шрифт, может там нужна кострукция типа
  RichEdit1.SelAttributes.Font := FontDialog1.Font
и конечно описка выделенная ранее, как на нее только компилятор не матерится

Объяснение:одномерного массива:

varимямассива: array [нижняяграница..верхняяграница] ofтипэлементов;

двумерного массива:

varимямассива: array [нижняяграница1..верхняяграница1,нижняяграница2..верхняяграница2] ofтипэлементов;

 

заполение массива:

одномерный массив: for i: =1 to5do readln(a[i]); {ввод с клавиатуры}

двумерный массив: for i: =1 to3do

                                                                           for j: =1 to2do readln(a[i,j]);

 

вывод массива на экран:

в столбец: for i: =1 to5do writeln(a[i]);

в строку: for i: =1 to5do write(a[i],' ');

матрица двумерного массива:

for i: =1 to n do

begin

for j: =1 to m do

write (a[i,j]: 4);

writeln;

end;

 

действия с одномерным массивом:

вычисление суммы элементов:

s: =0;

for i: =1 to n do s: =s+a[i];

подсчет элементов, удовлетворяющих условию:

k: =0;

for i: =1 tondo

if a[i] условиеотбора then k: =k+1;