Нарисовать звездами n букв K — Pascal(Паскаль)

uses crt;
const bk:array[1..6] of string[5]=('*  * ',
                                   '* *  ',
                                   '**   ',
                                   '* *  ',
                                   '*  * ',
                                   '     ');
var n,b,i,j,l,p:byte;
begin
clrscr;
repeat
write('Сколько букв К нарисоать? от 1 до 52 n=');
readln(n);
until n in [1..52];
clrscr;
b:=1;i:=1;j:=1;
while b<=n do
 begin
  for l:=1 to 6 do
   begin
    gotoXY(6*(j-1)+1,(i-1)*6+l);
    write(bk[l]);
   end;
  b:=b+1;
  j:=j+1;
  if j>13 then
   begin
    i:=i+1;
    j:=1;
   end;
 end;
readln
end.