Можно ли как-то переделать чтобы было не ToPoint а

Program pr;
uses crt;

Var mas:array[1..1000, 1..1000] of integer;
N,M,i,j,k:integer;

Begin
Writeln('Введите размер матрицы N*M');
Write('N = ');
readln(N);
Write('M = ');
readln(M);

if (M>1000) or (N>1000) or (M<1) or (N<1)
then  
Writeln('Ошибка, указанные значения выходят за пределы матрицы')   else   
        Begin      
 Writeln('Введите элементы матрицы');      

k:=0; 
 for i:=1 to N do     
  for j:=1 to M do     
    Begin     
      readln(mas[i,j]);       
      if (mas[i,j] mod 2 = 0) then k:=k+1;     
    end; 
  
    Writeln();   
    Writeln('Исходная матрица');
   
   for i:=1 to N do   
     Begin     
       for j:=1 to M do     
          Begin     
             Write(mas[i,j], ' ')     
           end;     
      Writeln();   
     end;         

Writeln();   
Writeln('Количество четных элементов = ',k);      
 end;

readln;
end.

«Alt+[Shift]+Tab» — переключение между окнами;
«Alt+F4» — закрыть активное окно;
«Alt+Space (пробел)» — открытие системного меню окна. С него можно закрывать, сворачивать, разворачивать, перемещать и изменять размер окна без мыши;
«Alt+Shift» или «Ctrl+Shift» — переключить язык;
«Ctrl+Alt+Delete» — открытие окна «Безопасность Windows»;
«Win» — открытие/закрытие меню «Пуск»;
«Ctrl+Esc» — открытие/закрытие меню «Пуск»;
«Win+D» — свернуть/восстановить все окна, включая диалоговые;
«Win+E» — открытие программы «Проводник»;
«Win+R» — открытие окна «Запуск программы» («Пуск» --> «Выполнить…»);
«Win+F» — открытие окна для поиска;
«Win+L» — заблокировать компьютер;
«Win+M» — сворачивает все окна, кроме диалоговых;
«Win+Pause/Break» — открытие окна «Система»;
«Ctrl+Shift+Esc» — открытие окна «Диспетчер задач»;
«Print Screen» — поместить снимок всего экрана в буфер обмена. В MS-DOS использовалась для вывода на принтер содержимого экрана;
«Alt+Print Screen» — поместить снимок активного окна в буфер обмена;