Умножить каждый элемент первой строки матрицы на a[1; 1] - Pascal

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

Дана таблица a[n;m] умножить каждый элемент первой строки на a[1;1], а каждый элемент второй строки на a[2;2]. Помогите пожалуйста, отчет скоро сдавать и задачу надо решить в паскале. Спасибо за помощь!

Решение задачи: «Умножить каждый элемент первой строки матрицы на a[1; 1]»

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

program pr;
 
var
  a: array [1..100, 1..100] of integer;
  n, m, i, j, k, z: integer;
 
begin
  writeln('Введите количество строк');
  readln(n);
  writeln('Введите количество столбцов');
  readln(m);
  for i := 1 to n do
    for j := 1 to m do
      a[i, j] := random(21);
  for i := 1 to n do
  begin
    for j := 1 to m do
      write(a[i, j]:3);
    writeln;
  end;
  k := a[1, 1];
  for j := 1 to m do
    a[1, j] := a[1, j] * k;
  z := a[2, 2];
  for j := 1 to m do
    a[2, j] := a[2, j] * z;
  writeln;
  writeln('Матрица после преобразования');
  for i := 1 to n do
  begin
    for j := 1 to m do
      write(a[i, j]:5);
    writeln;
  end;
end.

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

В программе объявлены переменные: a, n, m, i, j, k, z.
Пользователю предлагается ввести количество строк и столбцов матрицы.
Для каждой строки матрицы в цикле заполняются элементы случайными числами от 1 до 21.
Для каждой строки матрицы в цикле выводится содержимое строки.
Для первой строки матрицы умножаются все элементы на k, для второй строки - на z.
Выводится исходная матрица.
Выводится преобразованная матрица.