Как закодировать слова тьма окно веер?

Думаю так:   тьма-10010 11100 01100 00000 окно-01110 01010 01101 01110 веер-00010 00101 00101 10000

Const n=5; m=7; var a: array[1..n,1..m]of integer; i,j,k: integer;     begin       for i: =1 to n do           begin             writeln;               for j: =1 to m do                   begin                           a[i,j]: =random(14)-3;                                   write(a[i,j]: 4);                           if a[i,j]mod 2< > 0 then                               k: =k+1;                   end;           end; writeln; writeln(k); end.              

Const   n = 20; var   t: array[1..n] of integer;   mean: real;   i, k: integer; begin   writeln('введите ', n, ' элементов массива');   for i : = 1 to n do   begin       read(t[i]);       mean : = mean + t[i]   end;   mean : = mean / n;   k : = 0;   writeln(#13#10, 'введено: ');   for i : = 1 to n do write(t[i]: 5);   writeln(#13#10, 'элементы массива, превышаюшие среднее арифметическое ',           mean: 0: 2);   for i : = 1 to n do       if t[i] > mean then       begin           write(t[i]: 5);           k : = k + 1       end;   writeln(#13#10, 'найдено элементов, превышаюших среднее арифметическое: ', k) end. тестовое решение: введите 20 элементов массива 5 17 28 45 -20 34 9 18 42 -36 18 36 0 24 5 45 -7 12 1 21 введено:       5    17    28    45  -20    34      9    18    42  -36    18    36      0    24      5    45    -7    12      1    21 элементы массива, превышаюшие среднее арифметическое 14.85     17    28    45    34    18    42    18    36    24    45    21 найдено элементов, превышаюших среднее арифметическое: 11