Shell: поменять местами i-ю строку и j-й столбец матрицы

#!/bin/bash
echo "Enter size of matrix:"
read n
declare -A matrix
for ((i = 0; i < n; i++)); do
for ((j = 0; j < n; j++)); do
matrix[$i,$j]=`shuf -i 0-200 -n 1`
done
done
echo "--------------------"
echo "The matrix $n x $n:"
for ((i = 0; i < n; i++)); do
echo -n "["
for ((j = 0; j < n; j++)); do
printf " %3d" ${matrix[$i,$j]}
done
echo "]"
done
echo "--------------------"
echo "Enter number column :"
read p
echo "Enter number row :"
read q
for ((i = 0; i < n; i++)); do
tmp=matrix[$p,$i]
matrix[$p,$i]=matrix[$i,$q]
matrix[$i,$q]=tmp
done
echo "New matrix"
for ((i = 0; i < n; i++)); do
for ((j = 0; j < n; j++)); do
echo $matrix[$i,$j]
done
done

for ((i = 0; i < n; i++)); do
    tmp=${matrix[$p,$i]}
    matrix[$p,$i]=${matrix[$i,$q]}
    matrix[$i,$q]=$tmp
done
 
echo "New matrix"
 
for ((i = 0; i < n; i++)); do
    for ((j = 0; j < n; j++)); do
        echo -n "${matrix[$i,$j]}  "
    done
    echo
done

echo "--------------------"
echo "Enter index line :"
read p
echo "Enter index row :"
read q
 
N=$((n-1))
flag=0
for ((i = 0, j = $N; i < n;)); do
        if ! (( (p+i) - (q+j) )); then
                if [ $flag -eq 1 ]; then
                        ((j--))
                elif [ $flag -eq 2 ]; then
                        ((i++))
                elif [ $i -lt $((N-j)) ]; then
                        ((i++))
                        flag=1
                elif [ $i -gt $((N-j)) ]; then
                        ((j--))
                        flag=2
                else
                        ((i++))
                        ((j--))
                fi
                continue
        fi
        tmp=${matrix[$p,$i]}
        matrix[$p,$i]=${matrix[$j,$q]}
        matrix[$j,$q]=$tmp
        ((j--))
        ((i++))
done
 
echo "New matrix"
 
for ((i = 0; i < n; i++)); do
        for ((j = 0; j < n; j++)); do
                printf "%-4d" ${matrix[$i,$j]}
        done
        echo
done

echo "--------------------"
echo "Enter index line :"
read p
echo "Enter index row :"
read q
 
N=$((n-1))
for ((i=0, j=$N; i<n;)); do
        if [ $i -eq $q ]; then
                ((i++))
                continue
        elif [ $j -eq $p ]; then
                ((j--))
                continue
        fi
        tmp=${matrix[$p,$i]}
        matrix[$p,$i]=${matrix[$j,$q]}
        matrix[$j,$q]=$tmp
        ((j--))
        ((i++))
done
 
echo "New matrix"
 
for ((i = 0; i < n; i++)); do
        for ((j = 0; j < n; j++)); do
                printf "%-4d" ${matrix[$i,$j]}
        done
        echo
done

echo "--------------------"
echo "Enter index line :"
read p
echo "Enter index row :"
read q
 
for ((i=0, j=0; i<n;)); do
        if [ $i -eq $q ]; then
                ((i++))
                continue
        elif [ $j -eq $p ]; then
                ((j++))
                continue
        fi
        tmp=${matrix[$p,$i]}
        matrix[$p,$i]=${matrix[$j,$q]}
        matrix[$j,$q]=$tmp
        ((j++))
        ((i++))
done
 
echo "New matrix"
 
for ((i = 0; i < n; i++)); do
        for ((j = 0; j < n; j++)); do
                printf "%-4d" ${matrix[$i,$j]}
        done
        echo
done