Напишите программу, которая выводит на экран следующий текст в виде ромба — Pascal(Паскаль)

                                   

   О
  ООО
 ХХХХХ
ООООООО
 ХХХХХ
  ООО
   О

Program Romb;
uses crt;
var
    i,j,k:integer;
  shablon:string;
 
procedure probel(kol:integer);
var
    p:integer;
begin
  for p:=1 to kol do write(' ');
end;
 
Procedure stroka(kol:integer; sim:string);
var
    s:integer;
begin
  for s:=1 to kol do write(sim);
  writeln;
end;
 
begin
    clrscr;
  shablon:='OOXO';
  for i:=1 to length(shablon) do
    begin
      {Stabin probeli}
        probel((length(shablon)*2+1)-(i*2));
      stroka((i*2-1)*2,shablon[i]);
    end;
 
  for i:=length(shablon)-1 downto 1 do
    begin
      {Stabin probeli}
        probel((length(shablon)*2+1)-(i*2));
      stroka((i*2-1)*2,shablon[i]);
    end;
  write('Press Enter');
  readln;
end.