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

var
  s: string;
  i: integer;
 
begin
  readln(s);
  for i := 1 to length(s) do writeln(s[i]);
end.

uses crt;
var a: array[1..10,1..10] of integer;
    i,k,n,m,otr,pr: integer;
begin
pr:=1;
write('Введите кол-во строк матрицы (не больше 10): ');
repeat
read(n);
until n in [1..10];
write('Введите кол-во столбцов матрицы (не больше 10);');
repeat
read(m);
until m in [1..10];
for i:=1 to n do begin
for k:=1 to m do begin
a[i,k]:=random(5)-2;
write(a[i,k]:4);
end;
writeln;
end;
for i:=1 to n do begin
for k:=1 to m do begin
if a[i,k]<0 then begin
inc(otr);
pr:=pr*a[i,k];
end;
end;
end;
writeln('Кол-во отрицательных элементов: ',otr);
writeln('Произведение отрицательных элементов: ',pr);
end.

uses crt;
var a: array [1..10] of integer;
    i,j: byte;
    buf: integer;
begin
writeln('Исходный массив');
for i:=1 to 10 do
    begin
    a[i]:=random(19)-9;
    write(a[i]:4);
    end;
j:=0;
while j<=5 do
      begin
      for i:=1 to 4 do
          if a[i]>a[i+1] then
             begin
             buf:=a[i];
             a[i]:=a[i+1];
             a[i+1]:=buf;
             end;
      inc(j);
      end;
j:=0;
while j<=5 do
      begin
      for i:=5 to 9 do
          if a[i]<a[i+1] then
             begin
             buf:=a[i];
             a[i]:=a[i+1];
             a[i+1]:=buf;
             end;
      inc(j);
      end;
writeln;
writeln('Сортированный массив');
for i:=1 to 10 do
    write(a[i]:4);
end.