Помогите разобраться и доделать цикл в программе. Задача на числа

[Nil09511]

Задача :
Для заданного натурального N определить наименьшее число S, которое можно представить в виде суммы а^N + b^N по крайней мере двумя различными способами (а, b - натуральные числа; представления, отличающиеся лишь порядком слагаемых, различными не считаются).

Последние циклы не доделаны и выводятся все значения, проходящие через условие. Мне же нужно лишь наименьшее, то есть первое.

const
   l = 100;
var
   a, b, n, c, d, a1, b1, i : integer;
   s : array[1..l, 1..l] of integer;
begin
   write('Введите n. n = '); readln(n);
   
   for a := 1 to l do {заполнение нулями}
      for b := 1 to l do
         s[a, b] := 0; 
   
   for a := 1 to l do {заполнение значениями}
     for b := 1 to a do begin 
         i := 1;
         a1 := a;
         b1 := b;
         while i < n do begin
            a1 := a1 * a;
            b1 := b1 * b;
            i := i + 1;
         end;
         s[a, b] := a1 + b1;
      end;
   
   for a := 1 to l do {проверка совпадений}
      for b := 1 to l - 1 do
         for c := 2 to l do
            for d := 1 to l do 
               if (s[a, b] = s[c, d]) and (s[a, b] > 0) and (a <> c) and (b <> d) 
                  then write('s = ', s[a, b], ' = ', a, '^', n, ' + ', b, '^', n, ' = ', c, '^', n, ' + ', d, '^', n, '.');
end.

Эту вещь нужно доделать так, чтобы циклы прерывались при первом найденном нужном значении.

   for a := 1 to l do {проверка совпадений}
      for b := 1 to l - 1 do
         for c := 2 to l do
            for d := 1 to l do 
               if (s[a, b] = s[c, d]) and (s[a, b] > 0) and (a <> c) and (b <> d) 
                  then write('s = ', s[a, b], ' = ', a, '^', n, ' + ', b, '^', n, ' = ', c, '^', n, ' + ', d, '^', n, '.');

[min@y™]

чтобы циклы прерывались

способов прерывания вложенных циклов дофига. а язык паскаль или delphi?