PROGRAM LAB7;
VAR F:FILE OF INTEGER;
A:ARRAY [1..10, 1..10] OF INTEGER;
B:ARRAY [1..10, 1..10] OF INTEGER;
MN,I,J,MAX:INTEGER;
    BEGIN
    ASSIGN (F,'D:\Dance.Mission\MOE.txt');
    RESET (F);
    WRITELN ('VVID Z FILE F.TXT');
    READ (F, A[I,J]);
         BEGIN
         MAX:= A[1,1];
         FOR I:=1 TO 10 DO
         BEGIN
         FOR J:=1 TO 10 DO
         BEGIN
         IF A[I,J]<MAX THEN
         BEGIN
         MAX:=A[I,J]
         END;
    MN:=MAX;
    MAX:=A[J][J];
    A[J,J]:=MN;
WRITE ('RESULTATIV MASUV A=');
FOR I:=1 TO 10 DO
WRITE (A[I][J])
END
END;
END;
CLOSE(F)
END.