составить программу в паскале, и пишите комментарий в коде, что бы было понятно какое действие для чего

// pascalabc.net 3.0, версия 1066 const   mm=50;   nn=50; var   n,m,i,j,k1,k2,p: integer;   s1,s2,s3: longint;   a: array[1..mm,1..nn] of integer; begin   write('число строк и столбцов массива: '); read(m,n);   write('значение p: '); read(p);   writeln('*** сгенерированный массив ***');   randomize;   s1: =0; s2: =0; s3: =0; k1: =0; k2: =0;   for i: =1 to m do begin       for j: =1 to n do begin           a[i,j]: =random(101)-50;           write(a[i,j]: 4);           if a[i,j]> 30 then s1: =s1+a[i,j];           if odd(a[i,j]) then inc(k1)           else begin s2: =s2+a[i,j]; inc(k2) end;           if i+j=p then s3: =s3+a[i,j]           end;       writeln   end;   writeln('сумма элементов массива, больших 30: ',s1);   writeln('количество нечетных элементов массива: ',k1);   writeln('среднее арифметическое четных элементов массива: ',s2/k2);   writeln('сумма элементов массива c суммой индексов ',p,': ',s3) end. тестовое решение: число строк и столбцов массива: 8 10 значение p: 13 *** сгенерированный массив ***   -19 -39 -46  12  41  44 -44  21  11  25   13 -22    2  36  21 -42  34  15    5  25   -6  -3 -33 -29  47 -44  33    5  27  23   14  46  39 -35 -39  -1 -50  49    1  13   -4 -14  28  40 -34  48    0  -9 -36  12   -4 -20  35  45 -21  35  44  33  15  34   -40    2  44  38 -40  18 -11 -14  24 -28   -42  36 -37  42 -21 -43  19 -22 -45  49 сумма элементов массива, больших 30: 892 количество нечетных элементов массива: 40 среднее арифметическое четных элементов массива: 1.15 сумма элементов массива c суммой индексов 13: 56