В квадратной матрице найти сумму нечётных элементов

Program pr;uses crt;Var mas:array[1..1000, 1..1000] of integer;N,i,j,sum:integer;BeginWriteln('Введите размер матрицы N*N');Write('N = ');readln(N);if (N>1000) or (N<1)  then   Writeln('Ошибка, указанные значения выходят за пределы матрицы')   else    Begin         Writeln('Введите элементы матрицы');         sum:=0;      for i:=1 to N do          for j:=1 to N do              Begin                 readln(mas[i,j]);                  if (mas[i,j] mod 2 <> 0)                 then sum:=sum+mas[i,j];                end;           Writeln();        Writeln('Исходная матрица');        for i:=1 to N do           Begin                 for j:=1 to N do                     Begin                        Write(mas[i,j], ' ');                     end;                   Writeln();            end;              Writeln();        Writeln('Сумма нечетных элементов = ',sum);        end;readln;end.