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

program proga;
uses crt;
var M,i,j:integer;
begin clrscr;
write('Введите число ');
readln(M);
for i:=1 to M do begin
   for j:=1 to M do begin
      if (sqr(i))+(sqr(j))=m then writeln(i,'^2','+',j,'^2','=',m);
      end;
      
end;readkey;
end.

Заранее обромное спасибо!

program proga;
uses crt;
var M,i,j:integer;
count: integer;
begin clrscr;
write('Введите число ');
readln(M);
count := 0;
for i:=1 to M do begin
   for j:=1 to M do begin
      if (sqr(i))+(sqr(j))=m then begin
        writeln(i,'^2','+',j,'^2','=',m); inc(count);
      end;
   end;
end;
if count = 0 then writeln('нет вариантов')ж
readkey;
end.