массивы в паскале

[Кипятилка]

всё никак не решается задача:
Дана действительная квадратная матрица порядка n. Преобразовать матрицу по следующему правилу: строку с номером n сделать столбцом с номером n, а столбец с номером n строкой с номером n.
не могу сделать так, чтобы ее порядок задавался пользователем.,
вот мой код:

Program P_1;
const n = ...;(здесь надо исправить, только как?)
var a: array [1..n] of array [1..n] of integer;
n,m,k,j,tmp:integer;
begin
randomize;
Writeln('vvedite razmer matricy - n:');
Readln(n);
for j:1 to n do begin
tmp=mas[k,j];
writeln('ishodnaya matrica',tmp);
mas [k,j]=mas[j,k];
mas[j,k]=tmp;
write('preobrazovannaya matrica',tmp)
end;

не первый раз пишу задачу, уж извините, но не работает!

[__STDC__]

во-первых у вас дублируется идентификатор n.. во-вторых нельзя константе присваивать значения по ходу выполнения программы.. если хотите работать с матрицами произвольных размеров, используйте динамические массивы
и зачем там randomize; если вы нигде не используете random?

***
еще.. действительная матрица - матрица элементов типа real

[puporev]

Просто выкиньте эту строку совсем

const n = ...;(здесь надо исправить, только как?)

[__STDC__]

Сообщение от puporev

Просто выкиньте эту строку совсем

если убрать эту строку, вот это

a: array [1..n] of array [1..n] of integer;

потеряет весь смысл.. точнее все остатки смысла, которого в этой программе и так не оч. много

[puporev]

Для особливо догадливых добавлю, а в строке

a: array [1..n] of array [1..n] of integer;

замените n на, например, 100.

[puporev]

Или, на всякий случай, если нужна константа, напишите

const nmax=100;
var a:array[1..nmax,1..nmax] of integer;
     n:byte;
begin
repeat
write('Размер массива n=');
readln(n);
until n in [1..nmax];

[__STDC__]

Сообщение от puporev

Для особливо догадливых добавлю, а в строке

замените n на, например, 100.

Я вас чем-то обидел? Или что?