Дана действительная квадратная матрица (10,10). Поменять местами минимальные элементы заштрихованной части матрицы. — Pascal(Паскаль)

uses crt;
var
   a :array [1..10,1..10] of integer;
   i, j, m1, ti1, ti2, tj1, tj2, n, t:integer;
begin
randomize;
for i:=1 to 10 do
begin
   for j:=1 to 10 do
   begin
       a[i,j]:=random(10);
       write(a[i,j],' ');
   end;
writeln;
end;
m1 := a[1,1]; ti1 := 1; tj1:=1;
ti2 := 1; tj2:=2;
n := 10;
for i:=1 to 10 do
begin
    for j:=1 to n do
    if m1 > a[i,j] then begin ti2 := ti1; tj2 := tj1; m1 := a[i,j]; ti1 := i; tj1 := j; end;
    dec(n);
end;
t :=a [ti1,tj1];
a [ti1,tj1] := a [ti2,tj2];
a [ti2,tj2] := t;
writeln;
for i:=1 to 10 do
begin
   for j:=1 to 10 do
   write(a[i,j],' ');
   writeln;
end;
end.