Какие бывают проблемы вычислений с вещественными данными? в виде сообщение можете оформить . а я вас озолочу

Для начала найдем, сколько информации несет каждый символ: мощность алфавита 256, находим количество информации по формуле N = 2i, где N - мощность алфавита, i - количество информации в битах, которое несет каждая буква.

256 = 28, значит каждый символ несет 8 бит информации, или 1 байт.

2. В одной строчке 70 символов, значит, 70 * 1 = 70 байт несет каждая строчка.

3. На одной странице 30 строк, поэтому 30 * 70 = 2100 байт несет каждая страница.

5. Пять страниц текста содержит 2100 * 5 = 10500 байт информации.

ответ: 10500 байт.

Современные версии программного обеспечения (и в том числе, для языка Паскаль) позволяют в короткие сроки создавать очень короткие, наглядные и эффективные решения.

// PascalABC.NET 3.1, сборка 1250 от 28.05.2016
begin
  var a:=ArrRandom(20,-99,99); a.Println;
  a.Where(x->x<0).Concat(a.Where(x->x>=0)).Println
end.

Тестовое решение
88 94 55 -38 43 -72 3 -26 -1 -23 84 93 40 -8 -25 77 4 39 -50 3
-38 -72 -26 -1 -23 -8 -25 -50 88 94 55 43 3 84 93 40 77 4 39 3

Замечание:
Если стоит задача получить именно массив, а потом его вывести, можно написать так:
// PascalABC.NET 3.1, сборка 1250 от 28.05.2016
begin
  var a:=ArrRandom(20,-99,99); a.Println;
  a:=a.Where(x->x<0).Concat(a.Where(x->x>=0)).ToArray;
  a.Println
end.