Постоите квадрат со стороной 10 из точек используя оператор for

Program ideone;
var i,j : integer;
begin 
for i:=1 to 10 do  
begin   
for j:=1 to 10 do        
write('*');  
writeln(' ');  
end;  
readln;
end.