Удалить первую строку динамической матрицы - Pascal

Формулировка задачи:

Дан динамический массив данных А (n , m).Удалить первую строку

Решение задачи: «Удалить первую строку динамической матрицы»

Листинг программы

var
  a : array of array of Integer;
  rows, cols : Integer;
  row, col : Integer;
begin
  Randomize;
  Write('n m = '); ReadLn(rows, cols);
  SetLength(a, rows);
  for row := 0 to rows-1 do
    SetLength(a[row], cols);
  for row := 0 to rows-1 do
    for col := 0 to cols-1 do
      a[row, col] := Random(10);
  WriteLn('а :');
  for row := 0 to rows-1 do begin
    for col := 0 to cols-1 do Write(a[row, col]:2); WriteLn;
  end;
  Dec(rows);
  for row := 0 to rows-1 do
    a[row] := a[row+1];
  SetLength(a, rows);
  WriteLn('а :');
  for row := 0 to rows-1 do begin
    for col := 0 to cols-1 do Write(a[row, col]:2); WriteLn;
  end;
end.

Объяснение кода листинга программы

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

Создается переменная a типа array of array of Integer, которая будет представлять динамическую матрицу.
Создаются две переменные rows и cols типа Integer, которые будут содержать количество строк и столбцов матрицы соответственно.
Пользователю предлагается ввести количество строк и столбцов матрицы.
С помощью цикла for создаются все строки матрицы.
С помощью вложенного цикла for создаются все столбцы в каждой строке матрицы.
Каждое значение в матрице инициализируется случайным числом от 0 до 9 с помощью функции Random.
Выводится сообщение а :, за которым следуют все значения матрицы, выведенные через пробел.
Удаляется первая строка матрицы путем переименования ее во вторую.
Удаленная строка переименовывается обратно в первую.
Выводится сообщение а :, за которым следуют все значения матрицы, выведенные через пробел.