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

//îìîãèòå ðåøèòü, ïðîøó îòíåñòèñü ñ óâàæåíèåì
//1. äàí ìàññèâ èç 10 ýëåìåíòîâ, çàäàþòñÿ ðàíäîìíî. Íàéòè êîëè÷åñòâî îòðèöàòåëüíûõ ýëåìåíòîâ.
//2. äàí ìàññèâ èç 10 ýëåìåíòîâ. Íåîáõîäèìî ñäåëàòü òàê, ÷òîáû ýëåìåíòû ìàññèâà áûëè ðàâíû èõ ìîäóëþ.
//3. äàí ìàññèâ èç 10 ýëåìåíòîâ. Ñðàâíèòü ñðåäíåå àðèôìåòè÷åñêîå ìàêñèìàëüíîãî è ìèíèìàëüíîãî ýëåìåíòîâ
// è ñðåäíåå àðèôìåòè÷åñêîå âñåõ ýëåìåíòîâ ìàññèâà. âûâåñòè íà ýêðàí
Uses CRT;
var
   i, max, min, sum: integer;
   mas:array [1..10] of integer;
   sr_ar: real;
Begin
     for i:=1 to 10 do
         mas[i]:=random(10)-20;
    for i:=1 to 10 do
         mas[i]:=abs(mas[i]);
     min:=mas[1];
     max:=mas[1];
     sum:=0;
     for i:=2 to 10  do
        begin
           if (mas[i]<min) then min:=mas[i];
           if (mas[i]>max) then max:=mas[i];
        end;
     for i:=2 to 10  do
         sum:= sum + mas[i];
     if (sum/10 > (max+min)/2) then writeln('Ñðåäíåå àðèôì âñåõ ýëåìåíòîâ áîëüøå')
     else writeln('Ñðåäíåå àðèôìåò ìàêñèìóìà è ìèíèìóìà áîëøå') ;
End.

program tt1;
uses crt;
const
  n=10;
var
  m:array[1..n] of integer;
  i,k:byte;
begin
  randomize;
  writeln('Масив:');
  k:=0;
  for i:=1 to n do begin
    m[i]:=random(40)-20;
    write(m[i],' ');
    if m[i]<0 then inc(k);
  end;
  writeln;
  writeln('Кол-во отрицательных: ',k);
  readln;
end.

program tt2;
uses crt;
const
  n=10;
var
  m:array[1..n] of integer;
  i:byte;
begin
  randomize;
  writeln('Масив:');
  for i:=1 to n do begin
    m[i]:=random(40)-20;
    write(m[i],' ');
  end;
  writeln;
  writeln('Масив после обработки:');
  for i:=1 to n do
    write(abs(m[i]),' ');
  readln;
end.