Сгенерировать матрицу из координат точек и подсчитать количество точек, попавших в заданную область

const n=10;
var m:array[1..2,1..n] of real;
    i,j,k:integer;
begin
randomize;
k:=0;
writeln('Координаты точек');
for i:=1 to n do
 begin
  m[1,i]:=pi*random;
  m[2,i]:=random;
  if m[2,i]<=sin(m[1,i])then inc(k);
 end;
write('x:');
for i:=1 to n do
write(m[1,i]:5:2);
writeln;
write('y:');
for i:=1 to n do
write(m[2,i]:5:2);
writeln;
writeln('Количество точек попавших в область=',k)
end.

program yyy;
 
const
  size = 10;
 
type
  Tpoint = record
    x: real;
    y: real;
  end;
 
var
  x: array[1..size] of real; {Переменная для хранения массива координат X}
  y: array[1..size] of real; {Переменная для хранения массива координат Y}
  m: array[1..size,1..size] of Tpoint; {Переменная для хранения массива точек}
  i,j: integer;   {Вспомогательные переменные для организации циклов}
  k: integer;     {Переменная для хранения значения количества совпадений}
 
begin
  for i:= 1 to size do
    begin
      write('Введите ',i,' координаты X: ');
      readln(x[i]);           {Ввод координат X}
    end;
  for i:= 1 to size do
    begin
      write('Введите ',i,' координаты Y: ');
      readln(y[i]);           {Ввод координат Y}
    end;
  k:= 0;
  writeln('Матрица точек: ');
  for i:=1 to size do
    begin
      for j:= 1 to size do
        begin
          {Генерация матрицы точек}
          m[i,j].x:= x[i];
          m[i,j].y:= y[j];
          {Условие для проверки входимости точек в заданную область}
          if (m[i,j].y <= sin(m[i,j].x)) and (m[i,j].x <= Pi) and (m[i,j].x >= 0) then
            inc(k); {Подсчет найденных совпадений}
          write('(',m[i,j].x:5:2,', ',m[i,j].y:5:2,')  ');  {Вывод координат точек в консоль}
      end;
      writeln;
    end;
  writeln('Количество точек попавших в область: ',k);
  readln;
end.