Turbo Pascal

El siguiente ejercicio de Turbo Pascal muestra un menu en ell cual apareceran las opciones de "Llenado de matriz" , " Motrar Matriz " , "Identificar el Mayor valor en la Matriz" , " Promedio de los Valores de la Matriz" , "Matriz S " y "El Vector Promedio PROGRAM (Nombre) USES wincrt; VAR i,j,mayor,posi,posj,op,op2,sumpos,sumneg,contpos,contneg,c,sum:integer; s,matriz:array[1..3,1..4] of integer; promedio:array[1..3] of real; BEGIN repeat clrscr; writeln('Menu'); writeln(''); writeln('1)Llenar matriz'); writeln('2)Mostrar matriz'); writeln('3)Valor mayor'); writeln('4)Promedios'); writeln('5)Matriz S'); writeln('6)Vector promedio'); writeln(''); write('Introduzca su opcion: '); read(op2); writeln(''); case op2 of 1: begin for i:=1 to 3 do for j:=1 to 4 do begin clrscr; write('introduzca el valor de la fila ',i,' columna ',j,': '); readln(matriz); end; end; 2: begin for i:=1 to 3 do for j:=1 to 4 do if j<>4 then write(matriz,' - ') else writeln(matriz); end; 3: begin mayor:=matriz[1][1]; posi:=0; posj:=0; for i:=1 to 3 do for j:=1 to 4 do if mayor0 then writeln('el promedio de los numeros negativos es: ',sumneg/contneg:0:2) else writeln('el promedio de los numeros negativos es: 0'); end; 5: begin write('introduzca el valor c: '); readln(c); for i:=1 to 3 do for j:=1 to 4 do begin s:=c*matriz; if j<>4 then write(s,' - ') else writeln(s); end; end; 6: begin for i:=1 to 3 do begin sum:=0; for j:=1 to 4 do sum:=sum+matriz; promedio:=sum/4; end; writeln('el vector de los promedios de las filas es: '); for i:=1 to 3 do if i<>3 then write(promedio:0:2,' - ') else write(promedio:0:2); end; else writeln('ha introducido un valor incorrecto'); end; writeln(''); write('Ingrese 2 si desea salir: '); readln(op); until(op=2); END.