Посчитайте количество единиц в квадрате матрицы

// x - количество единиц в указанном квадрате
// вы дважды используете k в задании
for i:=R to R+K-1 do
  for j:=C to C+K-1 do
    if a[i,j]=1 then inc(x);

const
  nmax=20;
var
  a: array[1..nmax, 1..nmax] of integer;
 
var
  i, j, N, R, C, K, x: integer;
 
begin
  repeat
    writeln('Введите N, R, C, K через пробел');
    writeln('N <= ',nmax);
    readln(N,R,C,K);
  until n in [1..nmax];
  
  writeln('Введите элементы массива');
  for i := 1 to n do      
    for j := 1 to n do      
    begin  
      write('a[',i,',',j,']='); 
      readln(a[i, j]);
    end;
    
  writeln('Массив:');
  for i:=1 to n do
  begin
    for j:=1 to n do
      write(a[i,j]:4);
    writeln;
  end;
  
  x:=0;
  for i:=R to R+K-1 do
    for j:=C to C+K-1 do
      if a[i,j]=1 then inc(x);
  
  writeln('Единиц в указанном квадрате: ',x);                 
  readln;
end.