Procedure sommes digonale vecA et vecB ?

Exercice 1 : Soit deux tableaux A(3x3) et B(3x3) définis comme suit :

Tableau A

2 4 6
8 10 12
14 16 18
Tableau B

1 3 5
7 9 11
13 15 17

Ecrire en langage pascal un programme qui permet de :
1)créer les deux tableaux A et B tels qui sont donnes ci-dessus
2) Calculer et imprimer la somme des digonales de A et de B (à la fois)
( indication : A[i,i] et B[i,i] avec i=1,2,3 ; sont respectivement
les élément de la digonale da A et B)
3) Ecrire une procédure MAX(x :array[1..3,1..3] of integer ; var max :integer)
qui determine le max du tableaux X et retourne la maximum dans la varibles max.
4)Ecrire un programme principal dans lequel on utilise la procédure MAX de la
question 3) pour calculer et imprimer le max des tableaux A et B ,
soit maxA et maxB ,soit maxAB.

Ma Réponse :

Program tableaux;
Var
Max(a,b),maxA,maxB,i,j,k:integer;
Tableaux :array [1..3,1..3] of integer;
A,B :tableaux;
Procedure creetableuxA (var d:tableaux);
Var
begin
K,i,j:integer;
For i:=1 to 3 do
For j:=1 to 3 do
Begin
D[i,j]:=k;
K:=k+2;
End;
End;
Procedure creetableauxB (var m:tableaux);
Var
K,i,j:integer;
Begin
K:=1;
For i:=1 to 3 do
For j:=1 to 3 do
Begin
M[i,j]:=k;
K:=k+2;
End;
End;
Procedure affichertableaux(xx:tableaux);
Begin
Var
I,j:integer
Begin
For i:=1 to 3 do
For j:=1 to 3 do begin
Write xx[i,j];
End;
Writeln
End;
(*Calculer le Max*)
procedure Max (x:tbleaux;var max:integer);
begin
MAX:=[1,1];
For i:=1 to 3 do
For j:=1 to 3 do
If max<x[i,j] then
Max :=x[i,j];
Write (max);
End;
Begin (*programe principal*)
Creetableaux (A);
Affichertableaux (A);
Creetableaux (B);
Affichertableaux (B) ;
Max (A,maxA) ;
Max (B ,maxb) ;
(*calcule du max (A, b) 1er méthode*)
max(a,b) :=maxA
if max(A,B)<maxB then
max(A,B):=maxB
else max(A,B):=maxA;
End.

Reponse question n°2:

Program digonale;
Diag,var,somme1,somme2,i,j :integer ;
A, B:array [1..3,1..3] of integer;
Begin
Somme:=0;
For i:=1 to 3 do
Begin
Diag:=A[i,i] ;
Somme1 :=somme1+diag ;
End ;
Write (somme1);
For i:=1 to 3 do
Begin
Diag:=B[i,i];
Somme2:=somme2 + diag;
End;
Write (somme2);
End.
Question:
1)S.v.p comment transforme le programme nommé programme digonale en procédure ,mais quand peut le placer dans un seule programme ?
explication :cette ou ses procédure somme(s)digonale sera place après procédure creertableaux et afficher
Tableaux pour former un seule programme en procédure sans isoler la question 2 ?