Динамический массив

[botaniQQQ]

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

uses crt;
const
     m=200;
     n=200;
type
    vekt=array [1..n] of real;
    matr=array [1..m] of ^vekt;
var
   mat: matr;
   vec: array [1..n] of real;
   i,j: integer;
   otv: array [1..m] of real;
begin
     clrscr;
     writeln('Доступная память перед началом работы: ', memavail);
     randomize;
     for i:=1 to m do new(mat[i]);
     for i:=1 to m do
         for j:=1 to n do
             mat[i]^[j]:=random;
     for j:=1 to n do vec[j]:=random;
     for i:=1 to n do otv[i]:=0;
     for i:=1 to m do
         for j:=1 to n do
             otv[i]:=mat[i]^[j]*vec[j]+otv[i];
     writeln('Доступная память во время работы: ', memavail);
     for i:=1 to m do dispose(mat[i]);
     writeln('Доступная память после работы: ', memavail);
     readln;
end.

[Jaguar83]

Вы хоть чуть-чуть программирование знаете?
Функции ввода-вывода на консоль, массивы, цикл for - знаете как работает?
Если нет - то не имеет смысла объяснять что-то, банально возьмите учебник и прочитайте как это работает.
Если да - в приведенной программе по сути комментировать ничего.
1. clrscr - Очищает активное окно и устанавливает курсор в левый верхний угол окна.
2. memavail - Возвращает количество всей свободной памяти в куче.
3. randomize - Инициализирует встроенный генератор случайных чисел.
4. random - Возвращает случайное число. В данном случае результатом будет случайное число типа Real в диапазоне 0 <= X < 1.

Вкратце происходит следующее:
Выделяется память в динамической куче под массив mat, и инициализируется случайными значениями 0 <= X < 1.
Инициализируются массивы otv и vec (в статической памяти). Определяется доступная память перед, во время и после работы работы с массивом mat.

[botaniQQQ]

Вы хоть чуть-чуть программирование знаете?
Функции ввода-вывода на консоль, массивы, цикл for - знаете как работает?

Знаю. Спасибо за ответ. Я не совсм разобрался с указателями, поэтому больше всего интересуют строки:

 mat[i]^[j]

 otv[i]:=mat[i]^[j]*vec[j]+otv[i];

[Serge_Bliznykov]

mat[i]^[j]

matr=array [1..m] of ^vekt;

Матрица mat содержит в себе ссылки (указатели).
Каждый указатель указывает на структуру VEKT
поэтому запись mat[i]^[j] означает, взять I-й указатель, и из массива, на который этот указатель ссылается, взять J-й элемент..

otv[i]:=mat[i]^[j]*vec[j]+otv[i];

i-й элемент массива otv присвоить сумму содержимого i-го элемента массива otv и произведения j-го элемента динамической матрицы, заданной указателем mat[i] и содержимого -j-го элемента массива vec