Заменить значения всех элементов второй строки массива на число 5 - Pascal

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

Добрый день. Не могли бы вы мне помочь с задачами на 2 мерный массив. Дан двухмерный массив. а) Заменить значения всех элементов второй строки массива на число 5. 6) Заменить значения всех элементов пятого столбца массива на число 10. Заранее спасибо что помогаете))

Решение задачи: «Заменить значения всех элементов второй строки массива на число 5»

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

const max=10;
var a,a1:array[1..max,1..max] of integer;
    m,n,i,j:integer;
begin
randomize;
repeat
write('Количество строк от 2 до ',max,' m=');
readln(m);
until m in [2..max];
repeat
write('Количество столбцов от 5 до ',max,' n=');
readln(n);
until n in [2..max];
writeln('Исходная матрица');
for i:=1 to m do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=random(100);
    write(a[i,j]:3);
   end;
  writeln;
 end;
a1:=a;
writeln('Замена элементов второй строки на 5');
for i:=1 to m do
 begin
  for j:=1 to n do
   begin
    if i=2 then a1[i,j]:=5;
    write(a1[i,j]:3);
   end;
  writeln;
 end;
writeln('Замена элементов пятого столбца на 10');
for i:=1 to m do
 begin
  for j:=1 to n do
   begin
    if j=5 then a[i,j]:=10;
    write(a[i,j]:3);
   end;
  writeln;
 end;
end.

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

Создается константа max со значением 10.
Создается переменная a и присваивается ей массив целых чисел размером от 1 до max на 1 строку.
Создается переменная a1 и присваивается ей копия массива a.
В цикле repeat считываются значения m и n.
Выводится сообщение с запросом ввести количество строк и столбцов матрицы.
В цикле for i:=1 до m do происходит заполнение массива a случайными числами от 1 до 100.
Выводится сообщение с исходной матрицей.
В цикле for i:=1 до m do происходит замена элементов второй строки на число 5.
Выводится сообщение с замененной матрицей.
В цикле for i:=1 до m do происходит замена элементов пятого столбца на число 10.
Выводится сообщение с замененной матрицей.
Программа завершается.