[maximprada]

Код:

program Project1;
{$APPTYPE CONSOLE}
uses SysUtils;
var
i,n:integer;
M:array of integer;
Up,Dn:boolean;
begin
 Up:=true;     // по умолчанию переменные принимаю
 Dn:=true;     // значение True
  Write('Vvedite massiv:');
  readln(n);
SetLength(M,n);
  for i:=0 to n-1 do readln(M[i]);
  //   readln;
  for i:=1 to n-1 do
    begin
      if M[i] < M[i-1] then Up:=False;
      if M[i] > M[i-1] then Dn:=False;
    end;
if Up and Dn then writeln('NoSorted')
else if Up then writeln('Up')
else if Dn then writeln('Down');
readln;
end.

Код:

program Project1;
{$APPTYPE CONSOLE}
uses SysUtils;
const  n_el = 100;
var
  M:array[1..n_el] of integer;
  i,n,j:integer;
Begin
  Write('input massiv= ');
  Readln(n);
  for i:=1 to n do
    begin
      Write('ele=');
      Readln (M[i]);
    end;
  j:=0;
  for i:=1 to n do
    if (M[i]>=-100) and (M[i]<=100) then  j:=j+1;
  write('kolichesto elementov [-100,100]= ');
  writeln(j);
  readln;
end.

Спасибо ребята кто помогал, задачи чуток были переправленны....
Но помочь была не оценимая! ....
Выкладываю решеный код уже .. полностью готовый! Может кому еще поможет!