"Попытка присвоить переменной типа integer выражение типа char" - PascalABC.NET

program laba1;
var
x:array [1..10,1..10] of integer;
i, j : integer; // Счётчики строк и столбцов.
N, M : integer; // Число для поиска.
 
var l: array[1..4] of integer; 
 
function GetSum(sX,eX,sY,eY: integer): integer;
var
  r,i,j: integer;
begin
 r := 0;
  for i:=sY to eY do
    for j:=sX to eX do
      Inc(r , x[i,j]);
  GetSum := r;  
end;
 
begin
 // Формирование матрицы.
  for i:=1 to 10 do
  for j:=1 to 10 do X[i,j]:= random(100);
  
  // Печать матрицы.
  writeln;
  writeln('Сгенерированная матрица:');
  for i:=1 to 10 do
  begin for j:=1 to 10 do write(X[i,j]:5);
        writeln;
  end;
  
  // Запрос и ввод числа для поиска.
  writeln;
  writeln('Введите 2 целых положительных числа');
  writeln('для поиска строк и столбцов матрицы');
  write  ('N=');
  readln (N);
  write ('M=');
  read (M);
 
  // Проверка корректности введённого числа.
  if (N>i)or(M>j)or(N<1)or(M<1)
  then begin // Сообщение пользователю и завершение программы.
             writeln;
             writeln('Введённое число некорректно.');
             writeln('Программа завершает свою работу.');
             exit;
       end;
  
 
  for i:=1 to 10 do  begin
    writeln;
    for j:=1 to 10 do begin
      if ( i = N ) then
        write('***':5)
       else if ( j = M ) then
        write('***':5)
       else        
        write(X[i,j]:5);
    end;
  end;
 
 
  l[1] := GetSum(1   , M-1 , 1   , N-1);
  l[2] := GetSum(M+1 , 10  , 1   , N-1);
  l[3] := GetSum(1   , M-1 , N+1 , 10 );
  l[4] := GetSum(M+1 , 10  , N+1 , 10 );
  
  
  writeln;
  writeln('Сумма элементов верхней левой  области равна ' , l[1]);
  writeln('Сумма элементов верхней правой области равна ' , l[2]);
  writeln('Сумма элементов нижней  левой  области равна ' , l[3]);
  writeln('Сумма элементов нижней  правой области равна ' , l[4]);
  
 
end.