Составить процедуру обнуления всех положительных элементов массива - Pascal ABC

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

Составить процедуру обнуления всех положительных элементов в одномерном массиве A. С помощью этой процедуры обнулить все положительные элементы в n-м и k-м столбце произвольной матрицы B. Помогите!

Решение задачи: «Составить процедуру обнуления всех положительных элементов массива»

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

uses crt;
const nmax=20;
type mas=array[1..nmax] of integer; //Г¬Г*Г±Г±ГЁГў=Г±ГІГ®Г«ГЎГҐГ¶ Г¬Г*ГІГ°ГЁГ¶Г»
     mtr=array[1..nmax] of mas; //Г¬Г*ГІГ°ГЁГ¶Г*=Г¬Г*Г±Г±ГЁГў Г±ГІГ®Г«ГЎГ¶Г®Гў
procedure zero(var x:mas;n:byte); //ГЇГ°Г®Г¶ГҐГ¤ГіГ°Г* Г§Г*Г¬ГҐГ*Г»
var i:byte;
begin
for i:=1 to n do
if x[i]>0 then x[i]:=0;
end;
var b:mtr;
    r,c,i,j,n,k:byte;
begin
randomize;
repeat
write('ГЉГ®Г«ГЁГ·ГҐГ±ГІГўГ® Г±ГІГ°Г®ГЄ Г®ГІ 1 Г¤Г® ',nmax,' r=');
read(r);
until r in [1..nmax];
repeat
write('ГЉГ®Г«ГЁГ·ГҐГ±ГІГўГ® Г±ГІГ®Г«ГЎГ¶Г®Гў Г®ГІ 2 Г¤Г® ',nmax,' c=');
read(c);
until c in [2..nmax];
writeln('ГЊГ*ГІГ°ГЁГ¶Г* B:');//Г§Г*ГЇГ®Г«Г*ГЁГ¬ Г±ГІГ®Г«ГЎГ¶Г» Г¬Г*ГІГ°ГЁГ¶Г»
for j:=1 to c do
for i:=1 to r do
repeat
b[j][i]:=-5+random(11);
until b[j][i]<>0;   //ГЎГҐГ§ Г*Г®Г«ГҐГ©
for i:=1 to r do //ГўГ»ГўГҐГ¤ГҐГ¬ ГЇГ®Г±ГІГ°Г®Г·Г*Г®
 begin
  for j:=1 to c do
  write(b[j][i]:3);
  writeln
 end;
repeat
writeln('Г‚ГўГҐГ¤ГЁГІГҐ Г*Г®Г¬ГҐГ°Г* Г¤ГўГіГµ Г°Г*Г§Г*Г»Гµ Г±ГІГ®Г«ГЎГ¶Г®Гў Г®ГІ 1 Г¤Г® ',c);
read(n,k);
until(n in [1..c])and(k in [1..c])and(k<>n);
zero(b[n],r);
zero(b[k],r);
writeln('Г‡Г*Г¬ГҐГ*Г* ГЇГ®Г«Г®Г¦ГЁГІГҐГ«ГјГ*Г»Гµ Гў Г±ГІГ®Г«ГЎГ¶Г*Гµ ',n,',',k,' Г*Г* Г*Г®Г«ГЁ');
for i:=1 to r do
 begin
  for j:=1 to c do
  write(b[j][i]:3);
  writeln
 end;
end.

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

В начале кода объявляются переменные nmax, mas и mtr. Переменная nmax используется для ограничения размера массива, а переменные mas и mtr используются для хранения и обработки массивов.
Затем определяется процедура zero, которая принимает массив x и байт n в качестве параметров. Внутри процедуры происходит цикл for, который выполняется n раз. Для каждого элемента x[i] проверяется условие x[i] > 0. Если это условие истинно, то значение x[i] устанавливается равным нулю.
Далее объявляется переменная b, которая является массивом mtr.
Затем начинается цикл repeat, который выполняется до тех пор, пока не будет прочитано значение r для первого элемента массива b. Внутри цикла выводится сообщение с помощью функции write и читается значение r с помощью функции read. Значение r затем используется для создания массива b.
После этого начинается цикл for, который выполняется c раз. Для каждого элемента b[j] проверяется условие b[j] <> 0. Если это условие истинно, то выводится сообщение с помощью функции write и читается значение k с помощью функции read. Значение k затем используется для вызова процедуры zero для элемента b[n].
После этого вызывается процедура zero для элемента b[k].
Цикл repeat завершается, когда значение n равно c или k не равно n.
Конец процедуры zero.
Конец программы.