двумерные массивы в паскале абс

Question

дана матрица А и целые числа p и q. преобразовать матрицу а так, чтобы строка с исходным номером q, сохранив порядок следования остальных строк. 
program lab_6; 
uses crt; 
const n=5; 
 m=7; 
 p=2; 
 q=5; 
 type arr = array[1..n, 1..m] of integer; 
 matr = array[1..20] of arr; 
var 
 a:matr; 
 i,j,x:byte; 
begin 
 writeln; 
 writeln(' Автор - Крупина А. И. , студентка гр. ББИ-11'); 
 writeln(' вариант №5'); 
 writeln(' дана матрица А (nxm) и целые числа p и q'); 
 writeln(' преобразовать матрицу А так, чтобы строка с исходным номером p непосредственно следовала за строкой с исходным номером q, сохранив порядок следования остальных строк'); 
 writeln; 
 clrscr; 
 writeln('Исходная матрица'); 
 for i:=1 to n do 
 begin 
 for j:=1 to m do 
 begin 
 a[i,j]:=random(90)+10; <==== ошибка 
 write(a[i,j]:3); 
 end; 
 writeln; 
 end; 
 writeln('q = '); 
 readln(q); 
 writeln('p = '); 
 readln(p); 
if l>q then 
for j:=1 to m do 
 begin 
 x:=a[q,j]; 
 for i:=q to p-1 do 
 a[i,j]:=a[i+1,j]; 
 a[p,j]:=x; 
 end 
else if q>p then 
for j:=1 to m do 
 begin 
 x:=a[q,j]; 
 for i:=q downto p+2 do 
 a[i,j]:=a[i-1,j]; 
 a[p+1,j]:=x; 
 end; 
writeln('Результат: '); 
for i:=1 to n do 
 begin 
 for j:=1 to m do 
 write(a[i,j]:4); 
 writeln; 
 end; 
readln 
end.

Ошибка выходит: Нельзя преобразовать тип integer к array [1..7] of integer

Саня · Accepted Answer

type arr = array[1..n, 1..m] of integer; 
matr = array[1..20] of arr; 
var 
a:matr; 
 
итого а - трехмерный массив, а не двумерный. 
а значит, его элемент не a[i,j], а a[i,j,k] 
что-то ты намудрила