Используя таблицу ASCI code закодируйте слова (таблица стр. 20-21). Information, chipher, binary coding​

Var a: array[1..10] of integer;
    b: array[1..10] of real;
    i,n: integer;
    s: real;
begin
  s:=0; n:=0;
  write('массив a:  ');
  for i:=1 to 10 do
  begin
    read(a[i]);
    if a[i]<0 then 
    begin
      s:=s+a[i];
      n:=n+1;
    end;  
    write(a[i],' ');
  end;
  s:=s/n; 
  writeln;
  writeln('среднее арифметическое отрицательных: ',s);
  writeln('количество отрицательных: ',n);
  write('массив b:  ');
  for i:=1 to 10 do
  begin
    if a[i]<0 then b[i]:=s
    else b[i]:=a[i];
    write(b[i]:7:3);
  end;
end.

массив a:  2 2 -3 1 -5 -6 -5 9 -7 5 
среднее арифметическое отрицательных: -5.2
количество отрицательных: 5
массив b:    2.000  2.000 -5.200  1.000 -5.200 -5.200 -5.200  9.000 -5.200 5.000

1. Наперсток предназначен для защиты пальца от проколов во время работы.

2. Соблюдай порядок на своем рабочем месте.

Перед работой проверь исправность инструментов.

Не работай ножницами с ослабленным креплением.

Работай только исправным инструментом: хорошо отрегулированными и заточенными ножницами.

Работай ножницами только на своем рабочем месте.

Следи за движением лезвий во время работы.

Ножницы клади кольцами к себе.

Подавай ножницы кольцами вперед.

Не оставляй ножницы открытыми.

Храни ножницы в чехле лезвиями вниз.

Не играй с ножницами, не подноси ножницы к лицу.

Используй ножницы по назначению.

3. Нельзя втыкать иголки и булавки в одежду, мебель, брать их в рот. До и после работы пересчитывать иголки и булавки. При уколе пальца иглой следует выдавить две-три капли крови и смазать ранку йодом. Ножницы следует хранить в специальном чехле.