Массив. Поиск элементов с заданными свойствами, замена

const n=10;
var  m: array [1..n] of integer;
     s_otr:integer;
     A:integer;
     k_pol:integer;
     max_otr:integer;
     k:integer;
     min, ind:integer;
     n_sosed:integer;
     i:integer;
 
BEGIN
    write('Enter ogranichitel A=');readln(a);
    s_otr:=0;
    k_pol:=0;
    writeln('Enter massiv');
 
    for i:=1 to n do
    begin
    write('m[',i,']=');readln(m[i]);
    if m[i]<0 then s_otr:=s_otr+m[i];
    if (m[i]>0) and (m[i]<a) then k_pol:=k_pol+1;
    end;
 
 
    writeln('Summa otr elem=',s_otr);
    writeln('kst elem >0 and <',a,'=',k_pol);
 
 
         n_sosed:=0;
    for i:=1 to n-1 do
    begin
    if (m[i]<0) and (m[i+1]>0) then n_sosed:=n_sosed+1;
    if (m[i]>0) and (m[i+1]<0) then n_sosed:=n_sosed+1;
    end;
 
     writeln('n pari=',n_sosed);
 
 
    min:=0;
    for i:=1 to n do
    if m[i]<min then begin ind:=i; min:=m[i]; end;
 
    m[ind]:=0;
 
    for i:=1 to n do
    write(m[i],' ');
    writeln;
 
 
    write('k elementov for zamena?='); readln(k);
    for i:=1 to k do
    m[i]:=-m[i];
 
    for i:=1 to n do
    write(m[i],' ');
    writeln;
 
    write('Press Enter to exit ');
    readln;
END.