Помогите написать код программки в Pascal для задачки:дано натуральное число n

Var
i,n:integer;
res :string;

function f(i2:integer;var s:string):boolean;
var j,l:integer;
begin
for j:=1 to i2 do
for l:=1 to i2 do
begin
if j*j+l*l=i2 then
begin
result:=true;
s:=inttostr(i2)+'='+inttostr(j)+'^2+'+inttostr(l)+'^2';
end;
end;
end;

begin

writeln('Vvedite N');
Readln(n);

for i:=1 to n do
begin
if f(i,res) then writeln(res);
end;

Readln;

end.