Доработать код по приложенной задаче. Реализовать меню, там должно быть ввод массива рандомно, с клавиатуры и из файла

Program Kursovaya;
uses graphABC, abcObjects;
 
var
mass:array[1..100, 1..100] of integer; 
i, j, k, M, N, MaxElement, Kol: integer;
Button1, Button2, Button3, Button4, Button5,ButtonBack: RectangleABC;
Info:picture;
f: text;
 
procedure Vvod();
begin 
write(' Количество строк M = '); 
readln(M); 
write(' Количество столбцов N = '); 
readln(N);
delay(1000);
end;
 
procedure Ms();
begin
window.Clear();
sleep(1000);
//while true do;
begin
end;
end;
 
procedure massiwsklaviatyri ();
var i,j:integer;
begin
for i:=1 to N do
  for j:=1 to M do begin
    write('massiv[',i,',',j,']=');
    read ( mass[i,j] );
  end;
  end;
  
procedure masrand ();
var i,j:integer;
begin
randomize; 
 
writeln('Случайный массив', M, 'x', N, ':'); 
for i := 1 to M do begin 
 for j := 1 to N do begin 
   mass[i,j] := 100 - random(200) + 1; 
   write(mass[i,j]);
 end; 
 writeln; 
 end; 
 writeln;
 end;
 
procedure masinfile();
var i,j:integer;
begin
AssignFile(f, 'c:\Массив\1.txt');
 Reset(f);
 i := 0;
while not Eof(f) do begin
 j := 0;
while not Eoln(f) do begin
 Read(f, mass[i, j]);
  Inc(j);
  end;
  ReadLn(f);
  Inc(i);
  end;
  CloseFile(f);
end;
 
procedure OProgram(); 
begin;
  ClearWindow;
  Info.Draw(1, 1);
  SetPenColor(clBlack);
  SetFontColor(clBlue);
  SetBrushColor(clTransparent);
  setfontsize(12);
  TextOut(290, 70, 'О программе');
  Line(70, 90, 570, 90);
  TextOut(140,125,'Программа создана в рамках курсовой работы');
  Textout(95,155,'Создатель(программист): Кравников Павел Александрович, студент группы РК-172');
  SetPenColor(clBlack);
  SetFontColor(clWhite);
  Textout(280,750,'ВГТУ 2018');
  Redraw;
end;
 
 
 
procedure Otricatelnieelementi (var Kol : integer);
var i,j:integer;
begin 
Kol := 0;
for i := 1 to M do begin 
for j := 1 to N do begin 
if mass [i,j] < 0 then Kol := Kol + 1;
writeln('Количесвто отрицательных элементов в массиве:'); 
readln(Kol);
end;
end;
end;
 
procedure Odnomerniemassivi ();
var i,j:integer;
begin
writeln('Массивы из первых 4-х строк');
for I := 1 to 4 do
writeln; 
for j := 1 to N do
write (mass[i,j]:4);
end;
 
procedure Max( var MaxElement: integer);
var i,j:integer;
begin
MaxElement := mass[i,j];
for i := 2 to M do
If mass[i,j] > MaxElement then MaxElement := mass[i,j];
for j := 1 to N do
end;
 
procedure Zamena (var k, MaxElement: integer);
var i,j:integer;
begin
k := i;
for i := k + 1 to M do
mass[i,j]:= MaxElement;
for i := 1 to M do
writeln ('Массив с заменой');
writeln (mass[i,j]:4);
end;
procedure Lk();
begin
end;
 
procedure MenuTest();
begin
Button1 := new RectangleABC(100, 100, 380, 30, clyellow);
Button1.Text := 'Ввести массив случайным образом';
Button2 := new RectangleABC(100, 150, 380, 30, clyellow);
Button2.Text := 'Ввести массив с клавиатуры';
Button3 := new RectangleABC(100, 200, 380, 30, clyellow);
Button3.Text := 'Ввести массив из файла';
Button4 := new RectangleABC(100, 250, 380, 30, clyellow);
Button4.Text := 'Выход из программы';
Button5 := new RectangleABC(100, 300, 380, 30, clyellow);
Button5.Text := 'О программе';
 
end;
 
procedure MouseDown (x, y, md:integer);
begin
if md = 1 then if Button4.PtInside(x, y) then window.Close;
 
if md = 1 then if Button1.PtInside(x, y) then begin
  Vvod();
  Ms();
  masrand();
end;
 
if md = 1 then if Button2.PtInside(x, y) then begin
  Ms();
  massiwsklaviatyri();
end;
 
if md = 1 then if Button3.PtInside(x, y) then begin
  Ms();
  masinfile();
end;
 
if md = 1 then if Button5.PtInside(x, y) then begin
  Ms();
  OProgram();
end;
 
end;
 
procedure mouseD();
begin
window.setSize(640, 480);
window.setPos(1, 1);
window.Caption := ('MenuTest');
MenuTest();
graphABC.onMouseDown := MouseDown;
end;
 
{procedure goback();
begin
  ButtonBack := new RectangleABC(100, 400, 380, 30, clyellow);
  ButtonBack.Text := 'Вернуться назад';
  graphABC.onMouseDown := MouseDown;
  mouseD;
end;}
 
begin
mouseD();
end.