вычисление суммы квадратов Опции

[vg2.0]

Здравствуйте! Помогите пожалуйста с программкой, мне нужно чтобы результат вычисления не повторялся, например я ввожу число 25, и прога выводит
3^2+4^2 и наоборот 4^2+3^2, а мне нужно чтобы она выводила без обратного повторения. Заранее Большое спасибо.

program project;
uses crt;
var S,i,j:longint;
count: integer;
begin clrscr;
write('Введите число_ ');
readln(S);
count := 0;
for i:=1 to S do begin
   for j:=1 to S do begin
      if (sqr(i))+(sqr(j))=S then begin
        writeln(i,'^2','+',j,'^2','=',S); inc(count);
      end;
   end;
end;
if count = 0 then writeln('Данное число невозможно представить'+
  ' в виде суммы квадратов двух натуральных чисел!');
readkey;
end.

[virt]

..............
for i := 1 to trunc(sqrt(S)) do
for j := i + 1 to trunc(sqrt(S)) do
.................

[klem4]

virt :no: 200 можно предаставить как sqr(10)+sqr(10), а выдает только
sqr(2)+sqr(14);

[volvo]

virt  :no:  200 можно предаставить как sqr(10)+sqr(10), а выдает только sqr(2)+sqr(14);

А поменять на

for i := 1 to trunc(sqrt(S)) do
  for j := i to trunc(sqrt(S)) do

?

[vg2.0]

Ограмное спасибо всем кто помог мне с задачкой для курсовой работы, сдал на отл.
Всем большое спасибо.