Pascal

[pqsd]

Hola que tal, estoy teniendo problemas para poder graficar los ejes cordenados en un vector de 2 dimensiones.

Hice un procedimiento

Type
Tmatriz = array [ 1..7,1..9] of char;


Procedure Cargamatriz (var recibe:Tmatriz);
var i,j :byte;



begin
clrscr;
for j:= 1 to 3 do
begin
writeln(' | ');
end;
for i:= 1 to 4 do

write('-');


for i:=6 to 7 do write('-');
for j:= 5 to 9 do
begin
writeln(' | ');
end;

end;



pero al parecer me lo imprime mal

|
|
|
------------- |
|
|
|


Imprime algo asi :S y no se como sacarle el | que esta en la fila y tambien no tengo idea de como reemplazar en el medio por un + donde eso sea la interseccion.

[pqsd]

Me corrigo, ahora lo termino llenando en el vector pero me lo imprime mal :S


Type
Tmatriz = array [ 1..30,1..30] of char;


Procedure Cargamatriz (var ejex:Tmatriz; var ejey:Tmatriz);
var i,j :byte;



begin
for j:=1 to 30 do
begin
ejex[15,j]:='-';
write (ejex[15,j]);
end;

for i:=1 to 30 do
begin
ejey[i,15]:='|';
writeln(ejey[i,15]);
end;

ejex[15,15]:='+';
writeln(ejex[15,15]);





end ;