gepar, у тебя цикл некой наобумный. Конечно, во-первых, честно уточни, код к какой задачке ты здесь робко предположил (”транспонирование матрицы” либо “слепо изменить местами 2 строчки”)?
Если изменить местами 2 строчки, то в тех случаях там станет цикл ”for i:=1 to n do begin buf:=m[a,i]; m[a,i]:=m[b,i]; m[b,i]:=buf; end”, где a и b - номера строчек, [...]