Pascal/Turbo Pascal - Programa Matriz

HOLA QUE TAL AMIGOS NECESITO DE SU AYUDA!

SOY ESTUDIANTE DE PROGRAMACION PASACAL Y MI DUDA ES RESOLVER ESTE EJERCICIO NO SEQUE APLICAR. Y SI ALGUNOS DE USTEDES PUDIERA REALIZARLO SE LOS AGRADECERIA AMIGOS.

DICE ASI:

2) REALIZAR UN PROGRAMA EN PASCAL QUE PERMITA INTRODUCIR VALORES A UNA MATRIZ DE 3X4 Y DAR COMO RESULTADO:
-MATRIZ TRANSPUESTA.
-PROMEDIO POR FILA DE LA MATRIZ TRANSPUESTA.
-VALOR MAYOR DE LA MATRIZ TRANSPUESTA Y SU POSICION.
(USAR PROCEDIMIENTOS O FUNCIONES)

Considerando array[1..3,1..4] of integer,

{Esto esta pedido por otros a ver si vale}

program matrizes;
uses
crt;
type
arrayinteger = array[1..15] of integer;
matrizarray = array[1..3,1..4] of integer;
matriztrans = array[1..4,1..3] of integer;
var
cola : arrayinteger;
matriz : matrizarray;
transp : matriztrans;


function cargavalores(x, y : integer) : integer;
var
tem, i : integer;
tec : char;
dat : string[12];
erro : integer;
begin
i := 1;
repeat
tec := readkey;
if tec in[#48..#57] then
begin
dat[i] := tec;
dat[0] := chr(i);
gotoxy(x + i,y);write(dat[i]);
i := i + 1;
if i > 12 then
i := 12;
end;
if tec = #8 then
begin
i := i - 1;
if i < 1 then
i := 1;
dat[i] := ' ';
dat[0] := chr(i);
gotoxy(x + i,y);write(dat[i]);
end;
until tec = #13;
val(dat,tem,erro);
if erro > 0 then
begin
delete(dat,erro,1);
val(dat,tem,erro);
end;
cargavalores := tem;
end;


procedure datosarray;
var
x1, y1, cuent : integer;
begin
cuent := 1;
x1 := 10;
y1 := 4;
gotoxy(x1,y1);write('Entre Valores En El Array ');
y1 := y1 + 2;
gotoxy(x1,y1);write('Array N§ : ',cuent);
repeat
gotoxy(x1,y1);write('Array N§ : ',cuent);
gotoxy(24,y1);
cola[cuent] := cargavalores(24, y1);
cuent := cuent + 1;
y1 := y1 + 1;
until cuent > 15;
clrscr;
gotoxy(10,2);write('El Array Queda');
y1 := 4;
for x1 := 1 to 15 do
begin
gotoxy(10,y1);write('ARRAY N§ ',x1,' = ',cola[x1]);
y1 := y1 + 1;
end;
readln;
end;

procedure eliminanumerocola;
var
cc, col : integer;
eli : integer;
tempo : arrayinteger;
begin
fillchar(tempo,sizeof(tempo),0);
gotoxy(10,2);write('Elimina Numero De Cola');
for col := 1 to 15 do
begin
gotoxy(10,3 + col);write('N§ : ',col,' Contenido = ',cola[col]);
end;
gotoxy(10,(3 + col) + 1);write('Numero A Eliminar');
gotoxy(29,(3 + col) + 1);readln(eli);
if eli in[1..15] then
begin
cc := 1;
for col := 1 to 15 do
begin
if col <> eli then
begin
tempo[cc] := cola[col];
cc := cc + 1;
end;
end;
fillchar(cola,sizeof(cola),0);
for col := 1 to cc - 1 do
begin
cola[col] := tempo[col];
end;
clrscr;
gotoxy(10,2);write('La Lista Queda');
for col := 1 to cc - 1 do
begin
gotoxy(10,3 + col);write(' N§ : ',col,' = ',cola[col]);
end;
end
else
begin
clrscr;
gotoxy(10,4);write('El Numero Entrado No Existe En La Lista');
end;
readln;
clrscr;
end;

procedure insertavalore;
var
id : integer;
va, entra : integer;
begin
gotoxy(10,2);write('Inserta Valo En El Array');
entra := 0;
for id := 1 to 15 do
begin
if cola[id] <> 0 then
begin
entra := entra + 1;
end;
end;
if entra < 15 then
begin
gotoxy(10,4);write('Entre Valor A Insertar En El Array');
gotoxy(10,5);write('Valor Es : ');
cola[entra + 1] := cargavalores(21,5);
gotoxy(10,8);write('El Valor : ',cola[entra + 1],' Se Inserto');
end
else
begin
clrscr;
gotoxy(10,6);write('No Queda Espacio En El Array Para Insercion');
end;
readln;
clrscr;
end;

procedure vercontenido;
var
ii : integer;
begin
clrscr;
for ii := 1 to 15 do
writeln('Posicion En El Array : ',ii,' Contenudo : ',cola[ii]);
readln;
clrscr;
end;

procedure rellenamatriz;
var
xm, ym, col, fil : integer;
fin : boolean;
begin
fin := false;
col := 1;
fil := 1;
gotoxy(10,2);write('Entre Valores De La Matriz');
xm := 10;
ym := 6;
repeat
repeat
xm := 10;
gotoxy(xm,ym);write('Valor Matriz [',col,'][',fil,'] = ');
xm := 32;
gotoxy(xm,ym);
matriz[col,fil] := cargavalores(xm, ym);
gotoxy(32,6);clreol;
col := col + 1;
until col > 3;
fil := fil + 1;
col := 1;
until fil > 4;
clrscr;
for col := 1 to 3 do
for fil := 1 to 4 do
begin
gotoxy(10 + (col * 4),4 + fil + 2);write(matriz[col,fil]);
end;
gotoxy(10, 11);write('Matriz Completada Pulse Enter');
readln;
end;

procedure matriztranspuesta(mat : matrizarray);
var
mtx, mty : integer;
begin
clrscr;
gotoxy(4,2);write('Matriz Orijinal');
gotoxy(24,2);write('Matriz Transpuesta');
for mtx := 1 to 3 do
for mty := 1 to 4 do
begin
transp[mty,mtx] := mat[mtx,mty];
gotoxy(4 + (mtx * 4),4 + (mty + 1));write(mat[mtx,mty]);
gotoxy(24 + (mty * 4),4 + (mtx + 1));write(transp[mty,mtx]);
end;
gotoxy(12,12);write('Pulse Enter');
readln;
end;

procedure promedioporfilas(mat : matrizarray);
var
px, py : integer;
balor : real;
begin
gotoxy(10,2);write('Los Promedios Por Fila Son');
for px := 1 to 3 do
for py := 1 to 4 do
begin
transp[py,px] := mat[px,py];
end;
balor := 0;
for px := 1 to 3 do
begin
for py := 1 to 4 do
begin
balor := balor + transp[py,px];
end;
gotoxy(10,4 + px);write('El Valor Promrdio De [',px,'] Es : ',balor / 4:4:2);
balor := 0;
end;
gotoxy(10,14);write('Pulse Enter');
readln;
end;

procedure valormayorposicion(mat : matrizarray);
var
encot : boolean;
vmx, vmy : integer;
mayor : array[1..4,1..3] of integer;
temp : integer;
alax, alay, pzx : integer;
may : array[1..3] of integer;
begin
for vmx := 1 to 3 do
for vmy := 1 to 4 do
begin
transp[vmy,vmx] := mat[vmx,vmy];
mayor[vmy,vmx] := transp[vmy,vmx];
end;
for vmy := 1 to 3 do
for vmx := 1 to 4 do
begin
gotoxy(4 + (vmx * 4),vmy + 2);write(mayor[vmx,vmy]);
end;
for alax := 1 to 3 do
begin
for alay := 1 to 4 do
for pzx := 4 downto alay do
begin
if mayor[alay,alax] < mayor[pzx,alax] then
begin
temp := mayor[pzx,alax];
mayor[pzx,alax] := mayor[alay,alax];
mayor[alay,alax] := temp;
end;
end;
may[alax] := mayor[1,alax];
end;
for vmy := 1 to 3 do
for vmx := 1 to 4 do
begin
gotoxy(24 + (vmx * 4),vmy + 2);write(mayor[vmx,vmy]);
end;
for alay := 1 to 3 do
for alax := 3 downto alay do
begin
if may[alay] < may[alax] then
begin
temp := may[alax];
may[alax] := may[alay];
may[alay] := temp;
end;
end;
vmx := 1;
vmy := 1;
encot := false;
repeat
repeat
if transp[vmy,vmx] = may[1] then
begin
encot := true;
end;
vmy := vmy + 1;
until (vmy > 4) or (encot = true);
if encot = false then
begin
vmy := 1;
vmx := vmx + 1;
end;
until (vmx > 3) or (encot = true);
if encot = true then
begin
clrscr;
gotoxy(10,2);write('El Valor Mayor Y La Posicion Son');
gotoxy(10,4);write('Posicion [',vmy - 1,'][',vmx,'] Y El Valor Es : ',
transp[vmy - 1,vmx]);
end;
readln;
end;



procedure menu;
var
tex : char;
sal : boolean;
begin
sal := false;
repeat
clrscr;
gotoxy(10,2);write('**** Menu Jeneral ****');
gotoxy(10,4);write(' 1 = Rellenar Array');
gotoxy(10,5);write(' 2 = Anular Elemento Del Array');
gotoxy(10,6);write(' 3 = Insertar Elemento En El Array');
gotoxy(10,7);write(' 4 = Ver Contenido Array');
gotoxy(10,8);write(' 5 = Rellenar Matriz');
gotoxy(10,9);write(' 6 = Ver Matriz Transpuesta');
gotoxy(10,10);write(' 7 = Promedio Por Fila De La Matriz');
gotoxy(10,11);write(' 8 - Valor Mayor y Posicion En La Matriz');
gotoxy(10,12);write(' 9 = Salir');
gotoxy(10,16);write('<< Elija Opcion >>');
tex := readkey;
clrscr;
if tex in[#49..#57] then
begin
case tex of
#49 : datosarray;
#50 : eliminanumerocola;
#51 : insertavalore;
#52 : vercontenido;
#53 : rellenamatriz;
#54 : matriztranspuesta(matriz);
#55 : promedioporfilas(matriz);
#56 : valormayorposicion(matriz);
#57 : sal := true;
end;
end;
until sal = true;
end;

begin
clrscr;
menu;
end.