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

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

Определить номер строки матрицы R(n, n) хотя бы один элемент которой равен С, и элементы этой строки умножить на D. (C и D - заданы).

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

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

const n=5;c=4;d=2;
type matr=array[1..n,1..n] of integer;
     ss=set of byte;
var i,j:integer;
    a:matr;
    m:ss;
procedure vv_m(var x:matr;s:string;f:boolean;var mmm:ss);
 var i,j:integer;
  begin
   mmm:=[];
   writeln(s,':');
    for i:= 1 to n do
     begin
      for j:=1 to n do
       begin
        if f then x[i,j]:=-10+random(21);
         write(x[i,j]:4);
         if x[i,j]=c then include(mmm,i)
       end;
      writeln
     end
  end;
begin
 vv_m(a,'A',true,m);
 for i:=1 to n do
  begin
   if i in m
    then
     for j:=1 to n do a[i,j]:=a[i,j]*d
  end;
 vv_m(a,'A''',false,m);
end.

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

В данном коде объявлены следующие переменные:

n - количество строк в матрице (равное 5 в данном случае)
c - значение, равное которому должен быть равен хотя бы один элемент матрицы
d - коэффициент, умножение которого будет применяться к элементам матрицы при необходимости
matr - тип данных, представляющий матрицу
ss - тип данных, представляющий множество (в данном случае используется для отслеживания уникальных значений элементов матрицы)
i - переменная для итерации по строкам матрицы
j - переменная для итерации по столбцам матрицы
a - переменная, в которую записывается матрица
m - переменная, в которую записываются индексы строк матрицы, значения которых равны c В начале кода определяются константы n и c. Затем объявляются переменные типа matr и ss. Далее, определяется процедура vv_m, которая принимает матрицу, имя, для которого выполняется проверка, и булево значение, указывающее, нужно ли включать строки с равными значениями в множество. Внутри процедуры происходит итерация по строкам и столбцам матрицы, и если значение элемента равно c, то он добавляется в множество. В конце процедуры выводится имя и значения элементов множества. Затем, в основной части кода вызывается процедура vv_m с аргументами 'A' (имя), true (нужно ли включать строки с равными значениями) и m (множество). После этого, происходит итерация по строкам матрицы и если строка содержит элементы, равные c, то они умножаются на d. Затем, вызывается процедура vv_m с аргументами 'A'' (имя), false (не нужно ли включать строки с равными значениями) и m (множество).