Записать в двоичный файл только не отрицательные элементы массива

Сколько бит информации будет нести в себе сообщение о том, что в этой серии было только пять выпадения монетки орлом, и все они следовали строго подряд. В ответе укажите целое число.

противном случае все отрицательные элементы матрицы возвести в квадрат.

У меня получилось вот что:

program s455;
uses crt;
const
m=10;
n=12;
Var
A: array[1..m,1..n] of integer;
i, j, k, s: integer;

Begin
writeln('Enter size');
readln;
s:=0;
for j:=1 to m do
begin
k:=0;
for i:=1 to n do
end;
begin
if a<0 then begin
k:=1;
end;
if k=1 then s:=s+1;
end;
begin;
if k<0
then a[i, j]:=a[i, j*2-1]*10;
else a[i, j]:=a[i, j]*c [i, j]
end;
writeln

Не могу понять в чем ошибка

А вот само задание:
Дано: массивы А(8),
В(10). Сформировать массивы C
и D:
массив С должен состоять только из положительных элементов массива А и В, а
массив D –
из отрицательных. Предусмотреть подсчет и печать количества отрицательных и
положительных элементов в каждом из массивов А и В. Подсчет и печать количества
отрицательных и положительных элементов массива оформить в виде подпрограммы.

Условие типа, a[i]>max не идет,всегда max=0

и В(3*3). Вывести на экран тот из них, у которого меньше сумма элементов главной диагонали.

17.Дан массив А(3*4). Заменить все отрицательные элементы на противоположные.