Построить вектор из наименьших по абсолютной величине элементов каждой строки матрицы - Turbo Pascal

Формулировка задачи:

Пусть дана матрица A(nxn). Постройте вектор, каждый элемент которого содержит наименьший по абсолютной величине элемент строки.

Решение задачи: «Построить вектор из наименьших по абсолютной величине элементов каждой строки матрицы»

Листинг программы

uses crt;
var a:array[1..10,1..10] of integer;
    b:array[1..10] of integer;
    n,i,j:integer;
begin
clrscr;
repeat
write('Введите размер массива от 2 до 10 n=');
readln(n);
until n in [2..10];
randomize;
writeln('Массив');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=-10+random(21);
    write(a[i,j]:4);
   end;
  writeln;
 end;
for i:=1 to n do
 begin
  b[i]:=a[i,1];
  for j:=2 to n do
  if abs(a[i,j])<abs(b[i]) then b[i]:=a[i,j];
 end;
writeln('Вектор наименьших по модулю элементов строк');
for i:=1 to n do
write(b[i]:4);
readln
end.

Объяснение кода листинга программы

Код выполняет следующие действия:

Запрашивает у пользователя размер матрицы от 2 до 10 с помощью цикла repeat-until и функции readln().
Инициализирует матрицу случайными числами с помощью функции random() и присваивает элементам матрицы значения в диапазоне от -10 до 10.
Выводит на экран все элементы матрицы с помощью цикла for и функции write().
Создает вектор из наименьших по модулю элементов каждой строки матрицы с помощью цикла for и условий if.
Выводит на экран все элементы вектора с помощью функции write().
Завершает работу программы с помощью функции readln().