[ Foro de Pascal ]

Como poner sangrias en pascal?

Hola a todos! Necesito hacer un programa mas o menos asi:

Realiza un programa que contenga un procedimiento que muestre un margen de asteriscos donde el usuario proporcione el tamaño de la sangria.

Ya logre hacer el margen, pero no se como ponerle sangrias, les agradeceria mucho si me ayudaran.
Gracias.

Este es mi programa:

program ejercicio4_unidad3;
uses
  crt;
var
  san:integer;
function margen(j:integer):integer;
var
  i:integer;
  begin

    for i:=20 to 60 do
    begin
      gotoxy(i,5);
      writeln('*');
      delay(10);
      end;

    for i:=5 to 20 do {lado}
    begin
      gotoxy(60,i);
      write('*');
      delay(10);
      end;

    for i:=60 downto 20 do
    begin
      gotoxy(i,20);
      writeln('*');
      delay(10);
      end;

    for i:=20 downto 5 do  {lado}
    begin
      gotoxy(20,i);
      write('*');
      delay(10);
      end;

    end;


begin
  write(' Sangria: ');
  readln(san);
  write(margen(san));
  readkey;
end.                        

No entiendo bien... ¿la sangría con los asteriscos? ¿debes dejar espacios en blanco antes de los asteriscos? ¿no hay que mostrar datos tras esa sangría?  ¿realmente te dejan emplear GotoXY?