Pascal/Turbo Pascal - AYUDA URGENTE-

tengo un problema que el siguiente:

Cargar en una matriz (sólo por encima de la diagonal secundaria incluyendo
a la diagonal secundaria), porq el problema me dice que tengo ingresar las distancias entre las obras sin repetir.. como por ejemplo da la obra 1 a la 2 de la 1 a la 3 de la 1 a la 4... y despues pedir que ingrese de 2 a 1 de la 2 a 3 y 2 a 4 despues 3 a 4..por eso por encima de la diagonal secundaria... y no se como hacerloo por favorr AYUDA ES URGENTE...

muchas gracias"!!

HERNAN

ESTO ES LO QUE HICE PERO NO ME SALE Y NO SE DONDE ES QUE TENGO QUE ARREGLAR MUCHAS GRACIAS"!"

Procedure cargar (var mat1:matriz;var cantobras1:integer) ;
{procedimiento para el ingreso de datos}

var
i,j,m,k,l:integer;
resp,n,s:char;

begin

for i:=1 to k do begin
m:=i;
m:=m+1;
for J:=1 to l do begin

write ('ingrese la distancia(KM) de la obra' ,i, ' a la ',m,' = ' );

readln(mat1[i,j]);
write ('¨desea ingresar mas distancias s/n? :');
readln(resp);

IF resp= 'n' then
begin

cantobras1:=m;
k:=cantobras1-1;
l:=cantobras1-1;

for i:=1 to k do begin
i:=i+1;
m:=i;
m:=m+1;
for J:=1 to l do begin

write ('ingrese la distancia(KM) de la obra' ,i, ' a la ',m,' = ' );
readln(mat1[i,j]);

m:=m+1;
end;
l:=l+1;
end;

end;

m:=m+1;
end;
l:=l+1;
end;

end;