1 семестр сессия / 16

Program Lab_426_Var16;

Type Massive = Array [1..5,1..5] Of Integer;

Procedure Zamena(Var A:Massive; I1,I2,M,N:Integer);
  Var
    X,I,J:Integer;
  Begin
  For I:=1 To M Do
    Begin
    For J:=1 To N Do
      If (I=I1) Then
        Begin
        X:=A[I1,J];
        A[I1,J]:=A[I2,J];
        A[I2,J]:=X;
        Write(A[I1,J],' ');
        End
      Else  Write(A[I,J],' ');
    Writeln;
    End;
  End;
  
Var
  I1,I2,I,J,M,N:Integer;
  A,B:Massive;
  
Begin
Randomize;
Writeln('1 : ');
For I:=1 To 3 Do
  Begin
  For J:=1 To 4 Do
    Begin
    A[I,J]:=Random(21) - 10;
    Write(A[I,J],' ');
    End;
  Writeln;
  End;
Writeln('2 : ');
For I:=1 To 5 Do
  Begin
  For J:=1 To 5 Do
    Begin
    B[I,J]:=Random(21) - 10;
    Write(B[I,J],' ');
    End;
  Writeln;
  End;

Writeln; Writeln; Writeln;

M:=3; N:=4; I1:=2; I2:=3; Zamena(A,I1,I2,M,N);
Writeln;
M:=5; N:=5; I1:=2; I2:=4; Zamena(B,I1,I2,M,N);
End.