Правельно ли мыслю, решая задачу?

Условие)
Правьте исли что)
var i, j, a, b, c: integer ;
Begin
Writeln(' Ââåäèòå íóæíîå ÷èñëî ');
readln (c);
for i:=1 to c do
a:=i*i;
for j:= 1 to c do
b:=j*j;
if c=sqrt(a+b)then
writeln (a,b,'äà òàêèå ÷èëà åñòü') Else
writeln ('íåò')
End.

Правельно я мыслю? Это набросок)

И вот другая моя прога, но она работает)
Что я в первой напортачил)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
var
m,i,j,f:integer;
begin
readln(m);
for i:=1 to m do
for j:=1 to m do
if sqr(i)+sqr(j)=m then
begin
writeln(i,' 'j);
f:=1;
end;
if f=0 then writeln('no');
readln;
end.

4.Можно ли заданное натуральное число М представить в виде суммы квадратов двух натуральных чисел? Написать программу решения этой задачи.