Реализовать меню для программы, работающей с матрицей

Program qwer;
const
 m=5; {Размерности массивов следует задать именованными КОНСТАНТАМИ}
 
type matrix = array [1..m,1..m] of integer;
 
var k, l: integer;
 a,tmp: matrix;
 
procedure sort(mas:matrix; var ms:matrix);
 
var i, j, max, d, t: integer;
begin
 d:=1;
 repeat
 max:=mas[d,d];
 for i:=1 to m do
 for j:=1 to m do
 if (mas[i,j]>max) then
 if (i=j) and (i<d) then
 else
 begin
 max:=mas[i,j];
 t:=mas[d,d]; mas[d,d]:=mas[i,j]; mas[i,j]:=t;
 end;
 inc(d);
 until d>m;
 ms:=mas;
end;
 
function minus(mas:matrix): integer;
var i,j, min: integer;
begin
 for i:=1 to m do
 begin
 min:=0;
 for j:=1 to m do
 if (mas[i,j]<0) then
 inc(min);
 if (min=m) then
 begin
 minus:=i;
 exit;
 end;
 end;
 minus:=0;
end;
 
{----------начало------------}
 
begin
 {//случайный ввод матрицы
randomize;
 writeln('Исходная матрица');
for i:=1 to n do begin
 for j:=1 to n do begin
 a[i,j]:=random(50)-45;
 write(a[i,j]:4);
 end;
 writeln;
 end;}
 
{ручной ввод матрицы}
for k:=1 to m do
 for l:=1 to m do begin
 write('Введите элемент (',k,';',l,') ');
 read(a[k,l]);
 end;
 
 writeln('Исходная матрица');
for k:=1 to m do begin
 for l:=1 to m do begin
 write(a[k,l]:4);
 end;
 writeln;
 end;
 
 writeln('Преобразованная матрица');
sort(a,tmp); {максимумы на главной диагонали}
writeln;
 for k:=1 to m do begin
 for l:=1 to m do write(tmp[k,l]:4);
 writeln;
 end;
 
 writeln('первая строка с отрицательными элементами', minus(a):2);
 writeln;
end.