Задан массив целых чисел, который может содержать повторяющиеся члены. Вычислить сколько чисел входят в массив более чем по одному

[nubiknovo]

1)Задан массив целых чисел, который может содержать повторяющиеся члены. Выяснить сколько чисел входят в массив более чем по одному разу и подсчитать их количество.
Программа:

Program zadacha4;
var   y,n:byte; i,j:integer;
a:array[1..100] of integer;
begin
y:=0;
for i:=1 to n do
    begin
    for j:=i to n do
        begin
        if a[i]=a[j] and i<>j then
        y:=y+1;
        end;
    end;
writeln('kol=vo neopred elementov',y);
end.
2)Определить, является ли массив целых чисел упорядоченным по убыванию или возрастанию.
Программа:
Program zadacha3;
var n,f,y,i,j : integer;
    a : array[1..100] of integer;
    begin
       For i :=1 to 10 do
      A [ i ]:= random (10);
    f:=1;
    i:=1;
    for i:=1 to n-1 do
        begin
        j:=i+1;
        if a[i]<a[j] then
           y:=y+1;
        end;
        if y<>i then
           f:=2;
y:=1;
for i:=1 to N do
    begin
    j:=i+1;
    if a[i]>a[j] then
    y:=y+1;
end;
if f<>1 then writeln('цикл упорядочен')
else writeln('цикл не упорядочен');
end.

Помогите найти и исправить ошибки, или найти более легкие варианты программ.

[type_Oleg]

Лучше введите логические переменные

var uporWozr,uporUby:Boolean;
// ...
// проверка на возрастание
 uporWozr:=True;
for i:=1 to 99 do   //   зачем вам n , чему она равна ? 
 if a[i]>a[i+1] then
  begin
   uporWozr:=False;
   Break;
  end;
// аналогично надо сделать на убывание
// ..
if uporWozr or UporUby then writeln('цикл упорядочен')
 else writeln('цикл не упорядочен');

И не надо всяких j,f,y

PS Если используете Random, вызовите 1 раз Randomize, а то при каждом запуске будут одни и те же числа. И почему всего 10, как то не интересно. Хотя бы Random(100).

[nubiknovo]

Т.е. на убывание будет так?
// ..
uporUby:=True;
for i:=1 to 99 do
if a[i]<a[i+1] then
begin
uporUby:=False;
Break;
end;
// ..

[type_Oleg]

Да, но сначала

uporUby:=True;

И знак > измените на < , я там сам ошибся, исправил.

Ну вообщем, в одном случае >, в другом <

[nubiknovo]

Спасибо, исправил.
А как первую задачу переделать вы случайно не знаете?

[type_Oleg]

После y:=0;

for i:=1 to 99 do
    for j:=i+1 to 100 do
       if a[i]=a[j] then  y:=y+1;

Не нужны там begin .. end, вы ими обрамляли по одному оператору.

[nubiknovo]

Спасибо, вроде все понял.