Как автоматизировать процедуру на Pascal

Есть процедура, которая очень плохо написана:

procedure PrintLeftPartOfDiamond(k, n : integer);
begin
   if (k = 1) then
   begin
      PrintChars(' ', 2*n + 1);
      write('*');
   end;
   if (k = 2) then
   begin
      PrintChars(' ', 2*n - 1);
      write('*');
   end;
   if (k = 3) then
   begin
      PrintChars(' ', 2*n - 3);
      write('*');
   end;
   if (k = 4) then
   begin
      PrintChars(' ', 2*n - 5);
      write('*');
   end
end;

Не пойму, как её сделать нормально. Подскажите, пожалуйста. Весь код выглядит так:

program diamonds;
procedure PrintChars(ch : char; count : integer);
var i : integer;
begin
   for i := 1 to count do
      write(ch)
end;

procedure PrintLeftPartOfDiamond(k, n : integer);
begin
   if (k = 1) then
   begin
      PrintChars(' ', 2*n + 1);
      write('*');
   end;
   if (k = 2) then
   begin
      PrintChars(' ', 2*n - 1);
      write('*');
   end;
   if (k = 3) then
   begin
      PrintChars(' ', 2*n - 3);
      write('*');
   end;
   if (k = 4) then
   begin
      PrintChars(' ', 2*n - 5);
      write('*');
   end
end;

procedure PrintRightPartOfDiamond(k : integer );
begin
   if k > 1 then
   begin
      PrintChars(' ', 2*k -3);
      write('*');
   end
end;

procedure PrintLineOfDiamonds(k, n, count : integer);
var i : integer;
begin
   i := 0;
   PrintChars(' ' , n + 1 - k);
   write('*');
   if (k > 1)  then 
   begin   
      PrintRightPartOfDiamond(k);
   end;   
   while i < count - 1 do begin
      PrintLeftPartOfDiamond(k, n);
      PrintRightPartOfDiamond(k);
      i := i + 1;
   end;
   writeln
end;

var n, k, h, count : integer;
begin
   repeat
      write('Enter the diamond''s height (positive odd): ');
      read(h);
      write('Enter the count of diamonds: ');
      read(count);
   until (h > 0) and (h mod 2 = 1);
   n := h div 2;
   for k := 1 to n + 1 do
      PrintLineOfDiamonds(k, n, count);
   for k := n downto 1 do
      PrintLineOfDiamonds(k, n, count)
end.

Он выводит такую фигуру, пользователь задаёт размер и количество двумя параметрами:

  *     *     *
 * *   * *   * *
*   * *   * *   *
 * *   * *   * *
  *     *     *