Найти сумму в каждой колонке матрицы

[TNT]

Помогите пожалуйста решить 2 задачи.
1) Дана матрица целых чисел А[10x10]. Элементы матрицы получены с помощью RND. Найти сумму в каждой колоне, записать результаты суммы в одномерном массиве Б[10]. Вывести матрицу и результат.
2) С клавиатуры ввести координаты точки. Программе нужно распознать,
находится ли точка внутри,снаружи, или на линии нарисованной фигуры (с x и y осями). Точку надо показать на рисунке и вывести соответствующее сообщение на экран. Фигуры закрасить полосками.
Использовать оператор if.

[alex_fcsm]

const n=10;
      
var i,j,sum:integer;
    a:array[1..n,1..n] of integer;
    b:array[1..n] of integer;
    
begin
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=random(100);
    write(a[i,j]:3);
   end;
  writeln;
 end;
for j:=1 to n do
 begin
  sum:=0;
  for i:=1 to n do
   sum:=sum+a[i,j];
  b[j]:=sum;
 end;
writeln('==========================');
for i:=1 to n do
 write(b[i]:6);
 end.

[alex_fcsm]

Если я правильно понял, то радиус кругов 1 и 2.
Тогда принадлежность можно определять так

uses crt;
var  d,x,y:real;

begin
repeat
writeln('Input x y');
readln(x,y);
d:=sqrt(sqr(x)+sqr(y));
if (d<1) or (d>2) then writeln('Out of Figure')
    else if (d=1) or (d=2) then writeln('Ownes line')
     else if (d>1)and(d<2) then writeln('In Fugure');
writeln('Pres ESC to Exit');
until readkey=#27;
end.

[TNT]

Спасибо alex_fcsm.