Дан вектор n - элементов вывести на экран отрицательные числа из этого вектора

Const n=10; var x : array[1..n] of integer;     i : integer; begin randomize;   writeln('массив: '); for i: =1 to n do   begin   x[i]: =random(21)-10;   write(x[i],' ');   end;   writeln;   writeln('отрицательные элементы массива: '); for i: =1 to n do   if x[i]< 0 then write(x[i],' ');   writeln; end.

Ближе к началу координат та из точек, чей квадрат расстояния до начала координат x^2 + y^2 меньше. у меня описан алгоритм что_ближе, который принимает аргументами 4 вещественных числа - координаты точек и выводит сообщение о том, какая из точек ближе. у меня для примера рассматриваются точки (1, 1) и (2, 0) - первая точка ближе, (4, 8) и (1, 7) - вторая точка ближе, и (3, 4) и (0, 5) - точки на одинаковом расстоянии. вы можете задавать значения и с клавиатуры, и записывать их сразу в текст программы, в зависимости от того, что требуется. алг нач   что_ближе(1, 1, 2, 0)   что_ближе(4, 8, 1, 7)   что_ближе(3, 4, 0, 5) кон   алг что_ближе(вещ x1, y1, x2, y2) нач   вещ d   d : = (x1*x1 + y1*y1) - (x2*x2 + y2*y2)   выбор     при d < 0: вывод "первая точка ближе", нс     при d > 0: вывод "вторая точка ближе", нс     иначе вывод "точки на одинаковом расстоянии", нс   все кон