Сортировка массива по убыванию и выделить цветом текущий пункт меню

program dom_S484nov;
uses crt;
label M1,M2;
const 
n=5;
m=5;
var
a:array[1..n,1..m] of integer;
b:array[1..n] of integer;
i,j,p:byte;
min,pu:integer;
begin
clrscr;
 
writeln('Программа вычисления минимальных элементов строки массива');
writeln('+-------------------------------------------------+');
writeln('| 1. Ввод массива (производится случайным образом)|');
writeln('| 2. Вывод минимальных элементов массива          |');
writeln('| 3. Завершение работы программы                  |');
writeln('+-------------------------------------------------+');
p:=0;
M1:
writeln;
writeln('Введите пункт меню');
readln(pu);
case pu of
 
1: begin
 
M2:writeln('Нажмите Enter чтобы ввести матрицу');
readln( );
 
writeln;
randomize;
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:=random(10)-5;
write(a[i,j]:5);
end;
writeln;
end;
writeln;
p:=1; goto M1;
if p=0 then
writeln('Повторите ввод матрицы');
goto M2;
end;
 
2:begin
 
writeln('Массив, содержащий минимальные элементы строк матрицы:');
writeln;
for i:=1 to n do
begin
min:=a[1,1];
for j:=1 to m do
if a[i,j]<min then min:=a[i,j];
b[i]:=min;
end;
for i:=1 to n do write(b[i]:5);
goto m1;
end;
 
3: Exit
end;
goto m1;
end.