Помогите пожалуйста! В матрице С [6 x 7] определить сумму элементов, лежащих в диапазоне от X до Y. Заменить первую строку матрицы на значение найденной суммы.

В матрице 42 элемента. Заполним её случайными значениями в диапазоне от  x/2 до  2*y, тогда в среднем половина значений попадет в заданный диапазон. const   m=6;   n=7; var   a:array[1..m,1..n] of integer;   i,j,k,x,y,x1,y1,s:integer; begin   Randomize;   Write('Введите через пробел x и y: '); Read(x,y);   if y=x) and (a[i,j]<=y) then s:=s+a[i,j]     end;     Writeln   end;   for j:=1 to n do a[1,j]:=s;   Writeln('Результирующая матрица');   for i := 1 to m do   begin     for j := 1 to n do Write(a[i,j]:4);     Writeln   end end. Тестовое решение: Введите через пробел x и y: -5 10 Исходный массив    0  11  -6  15  -8  -2  -6    9   0   6   1  11  -2  -1    2   9  13  -1   6   0   9    6   1  -5   8  -3   0  -5    8   4  -8   7  -6   6  11   18  -1  15  -8  -9  -9  20 Результирующая матрица   62  62  62  62  62  62  62    9   0   6   1  11  -2  -1    2   9  13  -1   6   0   9    6   1  -5   8  -3   0  -5    8   4  -8   7  -6   6  11   18  -1  15  -8  -9  -9  20