В матрице вычислить сумму элементов, лежащих в диапазоне от X до Y

const
N=5;
var
f: text;
a:array[1..N,1..N] of integer;
i,j,x,y,r,b,c,b1,c1:integer;
begin
Assign(f,'F:\матрица8.txt');
writeln('Введите диапазон от X до Y:'); //Вводим диапазон
write('X=');
readln(x);
write('Y=');
readln(y);
 
b:=(x div N)+1;//Строчка элемента X
c:=(x mod N);//Столбец элемента X
b1:=(y div N)+1;//Строчка элемента Y
c1:=(y mod N);//Столбец элемента Y
 
if b=b1 then //Вычисляем сумму
    begin
        for j:=c to c1 do
        r:=r+a[b,j];
    end
else
    begin
        for j:=c to N do
            r:=r+a[b,j];
        for i:=(b+1) to (b1-1) do
            for j:=1 to N do
                r:=r+a[i,j];
        for j:=1 to c1 do
            r:=r+a[b1,j];
    end;
 
for i:=1 to N do //Присваиваем значение суммы столбцам
  begin
    for j:=1 to N-1 do
        begin
            if (i mod 2)=0 then a[i,1]:=r;
            write(a[i,j],' ');
        end;
        writeln(a[i,N]);
  end;
end.