Помогите с решением Опции

[Clane]

1. Найдите координаты всех седловых точек в матрице 10х10.
Седловой точкой называется элемент матрицы, максимальный в своем
столбце и минимальный в своей строке.
2. Задан выпуклый n-угольник (координатами своих вершин)
и точка А(x;y). Определить принадлежит ли эта точка многоугольнику.

[Ivs]

Матрица блин слишком большая чтоб вводить 100 элементов вручную, поэтому у меня здесь 2 возможных варианта (вручную и randomize, но при randomize никогда эту седловую точку не получить(когда 10x10))
Вот исходник (должен работать):
program sedltoch;
const n=10;
var
   a:array[1..n,1..n] of integer;
   i,j,k,z,t,min,max:integer;
begin
  randomize;
  for i:=1 to n do
  begin
     for j:=1 to n do
     begin
       write('-> ');
       readln(a[i,j]);
       {a[i,j]:=random(9)+1;
       write(a[i,j]:4);}
     end;
     {writeln; }
  end;
  for i:=1 to n do
  begin
     min:=maxint;
     for j:=1 to n do
     begin
     if a[i,j]<min then
     begin
        min:=a[i,j];
        k:=j;
     end;
     end;
     max:=-32768;
      for z:=1 to n do
      begin
         if a[z,k]>max then
         begin
            max:=a[z,k];
            t:=z;
         end;
       end;
       if (min=max) then writeln('Седловая точка -> a[',t,',',k,']=',a[t,k]);
  end;
  readln;
end.