Указать пары чисел - Pascal ABC

Формулировка задачи:

Дана последовательность целых чисел a1,a2...an. Указать пары чисел ai,aj. Таких, что ai +aj=m.

Решение задачи: «Указать пары чисел»

Листинг программы

const max=100;
var a:array[1..max] of integer;
    n,m,k,i,j:integer;
begin
randomize;
repeat
write('Количество чисел от 2 до ',max,' n=');
readln(n);
until n in [2..max];
writeln('Последовательность');
for i:=1 to n do
 begin
  a[i]:=random(50);
  write(a[i]:4);
 end;
writeln;
write('Введите целое число m=');
readln(m);
writeln('Пары чисел в сумме дающие ',m);
k:=0;
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]+a[j]=m then
 begin
  k:=1;
  writeln(a[i]:4,a[j]:4);
 end;
if k=0 then write('Таких чисел нет')
end.

Объяснение кода листинга программы

В данном коде объявлены следующие переменные: const max = 100; var a: array[1..max] of integer; n, m, k, i, j: integer; Сначала происходит инициализация генератора случайных чисел. Затем пользователю предлагается ввести количество чисел от 2 до max, которое будет вписываться в массив a. После этого выводится сообщение Последовательность, и для каждого числа i в массиве a выводится его значение. Затем пользователю предлагается ввести целое число m. После этого выводится сообщение Пары чисел в сумме дающие m, и начинается цикл, который проверяет все возможные комбинации чисел в массиве a на соответствие условию a[i] + a[j] = m. Если такая комбинация найдена, то переменной k присваивается значение 1, и выводятся значения найденных чисел. Если после прохода по всем комбинациям значение k остается равным 0, то выводится сообщение Таких чисел нет. Код не использует вложенные списки.