Задачи на одномерный массив и работу с парами элементов этого массива

[Raikerian]

Turbo pascal
1. Составить программу, которая в целочисленной таблице С, состоящей из N чисел находит количество таких пар элементов, сумма которых равна заданному числу М

Пытался разобрать задачу, насколько понял это цикл в цикле здесь должен быть.
Вот набросок (шаблон вообщем..):

Program mas1;
Uses crt;
Var C: array [1..100] of integer;
      i, M, N:integer;
Begin
  clrscr;
  randomize;
  Write('Из скольки чисел массив? ');
  Readln(N);
  Write('Задайте число M, M = ');
  Readln(M);
  for i:=1 to N do Begin
                        C[i]:=random(50);
...

Была идея с двумя переменными, которым присваивался бы левый и правый элемент пары, однако нужно учитывать все пары а не только поочередно.

2. Дан линейный неупорядоченный массив А, состоящий из 20 целых чисел. Составить программу, которая определяет количество таких пар элементов, в которых меньшее число находится левее большего.

Program mas1;
Uses crt;
Const N = 25;
Var A: array [1..N] of integer;
      i:integer;
Begin
  clrscr;
  randomize;
  for i:=1 to N do Begin
                        A[i]:=random(50);
...

Аналогичная ситуация, тоже была идея описанная выше но нужно учитывать все пары а не только поочередно.
Просьба помочь.