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

[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.

[vg2.0]

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