Паскаль. дан одномерный массив, значения которого вводятся с клавиатуры . вычислить количество отрицательных элементов данного массива. на экран вывести исходный массив и полученный результат

Var a:array[1..100] of integer;
I,c,n:integer;
Begin
Readln(n);
For i:=1 to n do
Begin
Read(a[i]);
Write(a[i],' ');
If a[i]<0
Then c:=c+1;
End;
Writeln('кол-во отриц.=',c);
End.

Чтобы посчитать количество информации нужно 
1.умножить 16 бит (1 символ) на кол-во символов на одну строку
16*64=1024 бит
2.умножить информацию одной строки на количество строк на странице
1024*56=57344 бит
3.умножить информацию одной страницы на количество страниц
57344*1024=58720256 бит
4.поделить это число (объем документа в битах) на 8 тем самым переводя его в байты 
58720256/8=7340032 байт
5.поделить это число на 1024 переводя его в килобайты
7340032/1024=7168 Кбайт
5 поделить еще раз на 1024 преводя файл в мегабайты
7168/1024=7
ответ:7 Мбайт или номер 4

Чтобы посчитать количество информации нужно 
1.умножить 16 бит (1 символ) на кол-во символов на одну строку
16*64=1024 бит
2.умножить информацию одной строки на количество строк на странице
1024*56=57344 бит
3.умножить информацию одной страницы на количество страниц
57344*1024=58720256 бит
4.поделить это число (объем документа в битах) на 8 тем самым переводя его в байты 
58720256/8=7340032 байт
5.поделить это число на 1024 переводя его в килобайты
7340032/1024=7168 Кбайт
5 поделить еще раз на 1024 преводя файл в мегабайты
7168/1024=7
ответ:7 Мбайт или номер 4