Форум гитаристов

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

const
  Capacity = 10;
var
  F:array [0..Capacity] of integer;
  i,j,m,n:integer;

begin
  {for example}
  m := 4;
  n := 5;
  {for example}
  Randomize;
  for i := 0 to Capacity do F := Random(10);
  {output}
  Writeln('m='+IntToStr(m)+', n='+IntToStr(n));
  Writeln('Source array:');
  for i := 0 to Capacity do Writeln('['+IntToStr(i)+']='+IntToStr(F));
  {approximately}
  Writeln('');
  for i := 0 to Capacity do
    if F < m then
    Writeln('['+IntToStr(i)+']='+IntToStr(F)+'<'+IntToStr(m));
  Writeln('');
  for i := 0 to Capacity do
   for j := 0 to Capacity do
   begin
    if i = j then Break;
     if F+F[j] = n then
     Writeln('['+IntToStr(i)+']+['+IntToStr(j)+']='+IntToStr(n));
   end;
  ReadLn;
end

TheIngvar, какой массив, какой рэндом?  Имеется два числа и всё. Ясен пень, что вводить их надо вручную.
#Master#, а чего цикл то сделал задом наперёд? 
Даже красивее будет сделать подпрограммку, которая в качестве параметра будет получать число, а возвращать сумму его цифр (погугли, скорей всего такие подпрограммки уже давно выложены где-нибудь),и просто вызывать её в цикле и сравнивать с N.