Вдвухмерном массиве а ,найти произведение элементов к строки,паскаль

// pascalabc.net 3.2, сборка 1370 от 24.12.2016 // внимание! если программа не работает, обновите версию! begin   var m: =readinteger('количество строк в массиве: ');   var n: =readinteger('количество столбцов в массиве: ');   var k: =readinteger('номер строки с произведением: ');   writeln('*** исходный массив [',m,',',n,'] ***');   var a: =matrrandom(m,n,-50,50);   a.println(4); writeln(4*a.colcount*'-');   writeln('п(',k,')=',a.row(k).aggregate(biginteger(,y)-> x*y)) end. пример количество строк в массиве: 7 количество столбцов в массиве: 12 номер строки с произведением: 5 *** исходный массив [7,12] ***   -12  -2  34 -15  -3 -21 -43 -21 -15 -36 -44  30   -6  -4    8 -28  40  46    1  44 -34  23  47    5   -12 -22  10 -10  -2 -44  46 -38  -5  41 -45  26   -2 -47  26  46  -6 -36    1  14 -21  29    9  21   -1  15  20 -37  20  24 -10  15    1 -22  48 -31   19  17  32 -22 -32  44 -15    3 -10  32  25  36   -30    6    0 -48 -29 -17 -24    9  19  39  41  33 п(5)=4149376450560000

Program №1; uses crt; var st: string; q,i: integer; begin clrscr; writeln('данная программа позволяет вычислить сумму кодов всех букв входящих в заданное слово'); writeln('введите слово ( количество букв в слове не должно превышать 50)'); readln(st); q: =0; for i: =1 to length(st) do q: =q+ord(st[ i ]); writeln(q); readkey; end.