Найти наименьшее натуральное число, представимое двумя различными способами в виде суммы кубов двух натуральных чисел — Pascal(Паскаль)

{Найти наименьшее натуральное число, представимое двумя различными способами
 в виде суммы кубов двух натуральных чисел}
program borlpasc;
var i,k:integer;
    x,y:integer;
begin i:=1; k:=0;
repeat i:=i+1;
       for y:=1 to i-1 do
       for x:=1 to i do
       if x*x*x+y*y*y=i then k:=k+1
       until k>=2; writeln(x,y);
       writeln('наим нат число=',i)
end.