Паскаль. Динамические переменные

[Pepsik]

написать программу для решения задачи (рассмотреть любой один из четырех случаев), матрицы следует разместить в "куче" при выполнении следующих условий:
а) число строк и число столбцов - константы;
б) число строк - константа, а число столбцов - исходное данное;
c) число строк - исходное данное, число столбцов - константа;
д) число строк и число столбцов - исходные данные.
Ввод, вывод и обработку матриц описать отдельными подпрограммами

Дана матрица. Определить k – количество "особых" элементов данной матрицы, считая элемент "особым", если в строке слева от него находятся меньшие элементы, а справа – бóльшие

я написал код для работы с обычной матрицей( плохо знаком я с динамическими структурами) . Может кто-нибудь поможет исправить мой код. Буду очень признателен

const
m = 5;
n = 4;

type
t_row = array[1..n] of byte;
t_matr = array[1..m] of t_row;

procedure read_matr(var a: t_matr);
var
i, j: byte;
begin
for i := 1 to m do
for j := 1 to n do
read(a[i][j]);
end;

function test_el(const a: t_row; x: byte): boolean;
var
i, j: byte;
b: boolean;
begin
i := 1;
while (i < x ) and (a[i] < a[x]) do
i := i + 1;
if i = x then
begin
repeat
i := i + 1;
until (i > n) or (a[i] <= a[x]);
test_el := i > n;
end;
end;

var
a: t_matr;
i, j, k, x: byte;

begin
read_matr(a);
k := 0;
for i := 1 to m do
for j := 2 to n - 1 do
if test_el(a[i], j) then
k := k + 1;
write('k-vo=', k);
readln;
readln
end.

[Pepsik]

неужели никто не знает(((

[eoln]

В старом добром Паскале динамических массивов нет, поэтому надо использовать, например, списки или чудить с выделенной памятью.

{$R-}//отключаем ошибки при выходе за границы
type
  PArray = ^TArray;
  TArray = array[0..0, 0..0] of byte;
var
  a: PArray;
  m, n: byte;
begin
  m := 7;
  n := 9;
  GetMem(a, m * n);//для не байтовых типов m * n * sizeof(тип)
  //работаем с массивом a^
  FreeMem(a, m * n)
end.

[Pepsik]

проблема в том, что я не знаю где и в каких случаях ставить ^

[Олвин]

проблема в том, что я не знаю где и в каких случаях ставить ^

RTFM =) Гуглите на тему "указатели и связанные списки".