Pascal

[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 ;