program pr1;
var
  i, j, k, n:                  integer;
  m, count, Aj, Ai, rand:      integer;
  number_arr: array [1..30] of integer;
  temp_arr:   array [1..2]  of integer;
  pair_arr:   array [1..40] of array [1..2] of integer;
  bool: boolean;

begin
  // Подключение функции рандомизации
  randomize;

  // Генерация массива со случайными числами
  for i := 1 to 30 do
  begin
    rand := random(1, 10);
    number_arr[i] := rand;
    write(rand, ', ');
  end;
  writeln();

  write('Введите число: ');
  readln(m);

  count := 1;
  n := 1;

  // Основной цикл
  for i:=1 to 30 do
  begin
    // Внутренний цикл
    for j:=2 to 30 do
    begin
      Ai := number_arr[i];
      Aj := number_arr[j];

      bool := false;
      // Проверка главного условия
      if (Ai + Aj = m) then
      begin
        // Добавление чисел во временный массив
        if Ai > Aj then
        begin
          temp_arr[1] := Ai;
          temp_arr[2] := Aj;
        end
        else
        begin
          temp_arr[1] := Aj;
          temp_arr[2] := Ai;
        end;
        // Проверка наличия полученных
        // чисел в массиве пар

        // Если массив пустой -
        // Добавление чисел в массив пар
        if (n = 1) then
        begin
          pair_arr[1][1] := temp_arr[1];
          pair_arr[1][2] := temp_arr[2];
          count := count + 1;
          n := n + 1;
        end

        // Если массив не пустой -
        // проверка наличия чисел в массиве
        // пар
        else
        begin
          // Если такой пары нет - добавление в массив
          k := 1;
          while bool do
          begin
            if not ((pair_arr[k][1] = temp_arr[1])
                and (pair_arr[k][2] = temp_arr[2])) then
            begin
              write(pair_arr);
              count := count + 1;
              k := k + 1;
              pair_arr[k+1][1] := temp_arr[1];
              pair_arr[k+1][2] := temp_arr[2];
              bool := true
            end;
          end;

        end;
      end;
    end;
  end;
  write('Количество пар: ', count+1)
end.