Loop for Shapes [1] (Pascal)

Request dari Jonny Irawan
untuk permasalahan bentuk-bentuk menggunakan perulangan
dikombinasikan dengan deretan angka
Semoga dapat membantu...

output :
1 1 1 1 1
3 3 3 3
5 5 5
7 7
9
7 7
5 5 5
3 3 3 3
1 1 1 1 1

Code :

uses crt;
VAR
   loop1, loop2 : byte;
   number : byte;
   temp : byte;
BEGIN
     clrscr;
     for loop1:=1 to 9 do
     BEGIN
          temp:=abs(5-loop1)+1;
          for loop2:=1 to temp do
          BEGIN
               write(2*(6-temp)-1);
          END;
          writeln;
     END;
     readkey;
END.