ayuda ¿Como crear lineas verticales y horizontales en un programa tipo consola!!

[jeral15]

si asi es, subzero asi es pero, como lo hago de esa forma?? te pondre unos codigos basicos para ke veas y asi me dices como hacerle..

program Project2;
{$APPTYPE CONSOLE}
uses SysUtils;
var
numero : array[1..5]of integer;
i : integer;

begin
for i:= 1 to 5 do
begin
write('digite un numero : ');
readln(numero[i]);
end;

for i:= 1 to 5 do
begin
write(numero[i], ' ');
end;
readln

en este programa despues ke coloca los numeros te aparesen con un espacio entre numeros.hasle ke aparesca en vez del espacio ke sea una raya divisora..por favor!!

gracias.