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.