Напишите программу, которая строит "квадрат" из знаков '*' заданного размера. Испол?

Program kvadrat;Var L,i,j:integer;BEGIN  Write('L= ');  Readln(L); if L<=10000 then   For i:=1 to L do     begin      For j:=1 to L do        begin          if ((i=1) OR (i=L)) OR ((j=1) OR (j=l)) then            Write('*')          else            Write(' ');        end;      Writeln;    end;END. Вроде все правильно написал