Vẽ tam giác trong pascal

Viết chương trình nhập chiều cao của 1 tam giác (số hàng của tam giác) , in ra tam giác có dạng :

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

Program ve_tam_giac;
uses crt;
var center,i,j,max,h:integer;
max_hang ,k:integer;

begin
clrscr();
Write(‘ Nhap vao chieu cao cua tam giac : ‘);readln(h);
max:=h+h-1;
center:=(max div 2) + 1;
for i=1 to h do
begin
max_hang:=i+i-1;
k:=(max-max_hang) div 2;
for j=1 to max do
begin
if(j>k and j<(k+max_hang+1)) then write(‘*’)
else write(‘ ‘);
end.
writeln(”);
end.
readln();
end.