Переделать задачи с помощью структуры модулей

program laba3_2;
var
   Y: array [1..100] of integer;
   X: array [1..100] of integer;
   i, N:integer;
begin
writeln('vvedite chislo elementov massiva Y. N=');
readln(N);
writeln('vvedite elementi massiva Y:');
for i:=1 to N do             
readln(Y[i]);
for i:=1 to N-1 do
X[i]:=Y[i]+Y[i+1];          
writeln('massiv X:');
for i:=1 to N-1 do            
writeln(X[i]);
end.

 program laba4;
var
A: array [1..100,1..100] of integer;
X: array [1..100] of integer;
i, j, M: integer;
 
begin
writeln('vvedite razmernost matrici A. M=');
readln(M);
writeln('vvedite elementi massiva A:');
for i:=1 to M do             
    for j:=1 to M do
        readln(A[i][j]);
 
writeln('massiv A:');
for i:=1 to M do             
    begin
    for j:=1 to M do
    write(A[i][j],'   ');
    writeln();
    end;
 
j:=1;
for i:=1 to 2*M do
    begin
        if (i mod 2)<>0 then X[i]:=A[j][j]       
        else
        begin
        X[i]:=A[j][M+1-j];
        j:=j+1;
        end;
    end;
 
writeln('massiv X:');
for i:=1 to 2*M do             
    write(X[i],'   ');
writeln();
end.