Найти минимальный и максимальный элемент массива.Найти сумму всех элементов массива

Program lb4;
var i,j,k,l,m,n,v:integer;
mass:array[1..10,1..10] of real;
max,min,s:real;
Procedure autovvod_elementov;
begin
randomize;
for i:=1 to m do
for j:=1 to n do
mass[i,j]:=random(100);
end;
procedure vvod_elementov;
var i,j:integer;
begin
for i:=1 to m do
for j:=1 to n do
begin
writeln('Введите элемент [',i,',',j,']');
readln(mass[i,j]);
end;
end;
procedure max_element;
begin
max:=mass[1,1];
k:=1;
l:=1;
for i:=1 to m do
for j:=1 to n do
begin
if mass[i,j]>max then begin
max:=mass[i,j];
k:=i;
l:=j;
end;
end;
writeln('Максимальный элемент массива  [',k,',',1,']=',max:2:2);
readln;
end;
procedure min_element;
begin
min:=mass[1,1];
k:=1;
l:=1;
for i:=1 to m do
for j:=1 to n do
begin
if mass[i,j]<min then begin
min:=mass[i,j];
k:=i;
l:=j;
end;
end;
writeln('Минимальный элемент массива  [',k,',',1,']=',max:2:2);
readln;
end;
procedure summa_elementov;
begin
for i:=1 to n do
for j:=1 to m do
begin
s:=(s+mass[i,j]);
end;
end;
procedure vyvod_elementov;
begin
for i:=1 to m do begin
for j:=1 to n do
begin
write('[',i,',',j,']=',mass[i,j]:2:1);
end;
readln;
end;
end;
begin
writeln('Выберите способ ввода:');
writeln('1-Автозаполнение случайными числами');
writeln('2-Заполнение числами введенными с клавиатуры');
writeln('3-Максимальный элемент массива ');
writeln('4-Минимальный элемент массива ');
writeln('5-Сумма элементов');
writeln('6-Выход из программы');
if (v<>1) and (v<>2) then halt;
writeln('Введите число строк-m,m<10');
readln(m);
writeln('Введите число столбцов-n,n<10');
readln(n);
case v of
1:autovvod_elementov;
2:vvod_elementov;
end;
max_element;
min_element;
summa_elementov;
vyvod_elementov;
end.

program lb4;
 
const
  n_max = 100;
 
type
  matrix = array[1..n_max, 1..n_max] of real;
 
var
  i, j, k, l, m, n, v: integer;
  mass: matrix;
  max, min, s: real;
 
procedure autovvod_elementov;
var
  i, j: integer;
begin
  for i := 1 to m do
    for j := 1 to n do
      mass[i, j] := random(100);
end;
 
procedure vvod_elementov;
var
  i, j: integer;
begin
  for i := 1 to m do
    for j := 1 to n do
    begin
      writeln('Введите элемент [', i, ',', j, ']');
      readln(mass[i, j]);
    end;
end;
 
procedure max_element;
var
  i, j: integer;
 
begin
  max := mass[1, 1];
  k := 1;
  l := 1;
  for i := 1 to m do
    for j := 1 to n do
    begin
      if mass[i, j] > max then 
      begin
        max := mass[i, j];
        k := i;
        l := j;
      end;
    end;
  writeln('Максимальный элемент массива  [', k, ',', 1, ']=', max:2:2);
end;
 
procedure min_element;
var
  i, j: integer;
 
begin
  min := mass[1, 1];
  k := 1;
  l := 1;
  for i := 1 to m do
    for j := 1 to n do
    begin
      if mass[i, j] < min then begin
        min := mass[i, j];
        k := i;
        l := j;
      end;
    end;
  writeln('Минимальный элемент массива  [', k, ',', 1, ']=', max:2:2);
end;
 
procedure summa_elementov;
var
  i, j: integer;
 
begin
  for i := 1 to n do
    for j := 1 to m do
    begin
      s := (s + mass[i, j]);
    end;
  writeln('Сумма: ', s:0:2);    
end;
 
procedure vyvod_elementov;
var
  i, j: integer;
 
begin
  for i := 1 to m do 
  begin
    for j := 1 to n do
      write('[', i, ',', j, ']=', mass[i, j]:2:1);
    writeln;
  end;
end;
 
begin
  randomize;
  writeln('Введите число строк-m,m<10');
  readln(m);
  writeln('Введите число столбцов-n,n<10');
  readln(n);
  writeln('Выберите способ ввода:');
  writeln('1-Автозаполнение случайными числами');
  writeln('2-Заполнение числами введенными с клавиатуры');
  writeln('3-Максимальный элемент массива ');
  writeln('4-Минимальный элемент массива ');
  writeln('5-Сумма элементов');
  writeln('6-Выход из программы');
  readln(v);
  {  if (v = 1) or (v = 2) then 
      halt;}
  case v of
    1: autovvod_elementov;
    2: vvod_elementov;
  end;
  max_element;
  min_element;
  summa_elementov;
  vyvod_elementov;
end.