Проверьте алгоритм. Все ли правильно? На 5 пойдет ?
Дан массив N действительных чисел, подсчитать сколько в нем отрицательных, положительных и нулевых элементов

Program_zad2;
var a: array [1..100] of integer;
otr, pol, nol : integer;
n : integer;
begin
for n := 1 to 100 do
begin
if (a[n] < 0) then inc(otr) else
if (a[n] = 0) then inc(zero) else
if (a[n] > 0) then inc(pol);
end;
writeln(' количество отрицательных = ', otr, ' количество
положительных = ',pol, ' количество равных нулю = ',nol);
end.

Объяснение:

Робототе́хника (от робот и техника; англ. robotics — роботика, роботехника) — прикладная наука, занимающаяся разработкой автоматизированных технических систем и являющаяся важнейшей технической основой развития производства.

Робототехника опирается на такие дисциплины, как электроника, механика, кибернетика, телемеханика, мехатроника, информатика, а также радиотехника и электротехника. Выделяют строительную, промышленную, бытовую, медицинскую, авиационную и экстремальную (военную, космическую, подводную) робототехнику.

// PascalABC.NET 3.3, сборка 1555 от 21.10.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadInteger('Количество строк в матрице:');
  var m:=ReadInteger('Количество столбцов в матрице:');
  Writeln('Вводите элементы матрицы построчно');
  var a:=new real[n,m];
  var b:=new real[n];
  for var i:=0 to n-1 do begin
    b[i]:=0;
    for var j:=0 to m-1 do begin
      Read(a[i,j]);
      b[i]+=Sqr(a[i,j])
      end;
    b[i]:=Sqrt(b[i])
    end;
  Writeln('Сформированный вектор');
  b.Println;
end.

Пример
Количество строк в матрице: 4
Количество столбцов в матрице: 3
Вводите элементы матрицы построчно
3.4 5.1 8
-1 0 1
-5.34 1.777 5
3 4 5
Сформированный вектор
10.0781942827076 1.4142135623731 7.52816903370268 7.07106781186548