Дан двухмерный массив m*n случайных целых чисел, которые обязаны генерироваться в

Const m=9; n=10;
var 
a:array[1..m,1..n] of integer;
i,j,m1,n1:integer;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to m do
 begin
 for j:=1 to n do
  begin
   a[i,j]:=random(13)-5;
   write(a[i,j]:4);
  end;
  writeln;
 end;
writeln('Элемент, расположенный в правом верхнем углу массива: ',a[1,n]);
writeln('Элемент, расположенный в левом нижнем углу массива: ',a[m,1]);
writeln('Какой элемент 2-ой строчки нужно вывести?');
readln(n1);
writeln('Элемент, расположенный во 2-ой строке в ',n1,' столбце: ',a[2,n1]);
writeln('Какой элемент третьего столбца необходимо вывести?');
readln(m1);
writeln('Элемент, расположенный в 3-ем столбце в(о) ',m1,' строке: ',a[m1,3]);
writeln('Какой элемент массива необходимо вывести?');
readln(m1,n1);
writeln('Элемент, расположенный в(о) ',m1,' строке в(о) ',n1,' столбце: ',a[m1,n1]);
end.

Пример:
Начальный массив:
   7  -5   7   7   3   3   4   6  -5   1
   7  -3  -1  -5  -1  -1   2   4  -2   6
   0   3   4  -2  -3  -1  -2   7   3  -2
   7   3  -2   6  -2   4  -1   1   0   3
   2   4  -1   6  -2   2   5   4   4  -1
  -1  -4   5   2   5  -1  -5   5  -5   0
   4   2  -4   2  -3   1  -1   5   3   4
  -2   5  -4  -1   5   5   3   3  -2   1
   5   2  -3   3   5   4   3   3   4   5
Элемент, расположенный в правом верхнем углу массива: 1
Элемент, расположенный в левом нижнем углу массива: 5
Какой элемент 2-ой строчки необходимо вывести?
Элемент, расположенный во второй строке в 4 столбце: -5
Какой элемент третьего столбца нужно вывести?
Элемент, расположенный в 3-ем столбце в(о) 5 строке: -1
Какой элемент массива необходимо вывести?
Элемент, расположенный в(о) 6 строке в(о) 2 столбце: -4