определить принадлежит ли точка с координатами x;y фигуре, координаты задает пользователь, pascal

N=int(input('n = '));
m=int(input('m = '));
for i in range(1,n+1):
    s='';
    for j in range(1,m+1):
        if (i%2==1): s=s+str((i-1)*m+j).rjust(4);
        else: s=s+str((i-1)*m+m-j+1).rjust(4);
    print(s);
   
n = 5
m = 5
    1    2   3     4    5
  10    9   8     7    6
  11  12  13  14  15
  20  19  18  17  16
  21  22  23  24  25


n = 5
m = 8
   1     2     3    4    5    6     7   8
  16  15  14  13  12  11  10   9
  17  18  19  20  21  22  23  24
  32  31  30  29  28  27  26  25
  33  34  35  36  37  38  39  40

//FPC 2.6.4

var
  a: array of longint;
  size, i, j: longint;
begin
  randomize;
  writeln('Колво элементов: ');
  readln(size);

  setLength(a, size);
  write('Исходный случайный массив: ');
  for i:=0 to size-1 do
  begin
    a[i]:=random(201)-100;
    write(a[i], ' ');
  end;
  writeln;

  for i:=0 to size-2 do
    for j:=0 to size-i-2 do
      if a[j]>a[j+1] then
      begin
        a[j]:=a[j] xor a[j+1];
        a[j+1]:=a[j] xor a[j+1];
        a[j]:=a[j] xor a[j+1];
      end;

    writeln('Отсортированный массив: ');
  for i:=0 to size-1 do write(a[i], ' ');
  writeln;

end.