задача-менять местами столбцы и строки, матрица размещена в одномерном массиве по строкам... Опции

[кучаТрупов]

задача-матрица размещена в одномерном массиве по строкам.поменять местами k-ый и 1ый столбцы матрицы (к и 1 заданы). результат напечатать по строкам.
указание-k-ый столбец матрицы расположен в одномерном массиве в элементах с индексами-- ((i-1)*m+k)го,
i=1..n

не могу я записать это так как надо. только месяц еще его изучаем. а я болела. буду признательна в оказанной помощи.(я согласно с правилами смотрела в поиске нет ли похожего,но нашла то что не похоже)

[кучаТрупов]

program lab_9;

const n=10;k=5;
      m=9;
var a:array[1..n*m]of integer;
   b,j,t,i: integer;
begin
     randomize;
     for i:=1 to n*m do begin
         a[i]:=random(20)-10;
         write(a[i],' '0;
                      end; writeln;
     for i:=1 to n*m do begin
         b:=a[(i-1)*m+1]:
         a[(i-1)*m+1]:=a[(i-1)*m+1];
         a[(i-1)*m+k]:=b;
                      end;
     for i:=1 to n do begin
         write(a[i],' ');
                      end;
     readln;
end.

вот получается задачка,если использовать предложенное решение)).
при решении получается беда с выводом ответа. нужно вывести матрицу одномерного массива по строкам. имеется еще ошибка с индексами или что-то такое.
я обессилен.

Сообщение отредактировано: Lapp - 16.12.2008 2:46