Вычисление суммы четных элементов в строках матрицы

UNIT UNIT_1;
interface
  USES CRT;
  Const
    z = 10;
  TYPE
    mas = array [1..z,1..z] of byte;
  Var
    n : byte;
    A : mas;
Procedure start;
Procedure sum;
Procedure min_elem;
Procedure max_elem;
 
implementation
 
Procedure start;
VAR i, j : byte;
BEGIN
clrscr;Randomize;textcolor(7);
Write('Введите размер квадратной матрицы до 10 = ');ReadLn(n);
WriteLn('Получаем исходную матрицу');
WriteLn('|-----------------------------|');
FOR i:=1 TO n DO
  Begin
    FOR j:=1 TO n DO
      begin
        A[i,j]:=random(89)+10;
        write('|',A[i,j]:3,' ');
      end;write('|');
WriteLn;WriteLn('|----+----+----+----+----+----|');
  End;
END;
 
Procedure sum;
VAR
i, j : byte;
Sum : integer;
BEGIN
Sum:=0;
WriteLn('Считаем суммы чётных элементов в строках матрицы "A" :');
textcolor(7);
FOR i:=1 TO n DO
  Begin
    FOR j:=1 TO n DO
      begin
        If not odd(A[i,j]) then
          begin
            Sum:=Sum + A[i,j];
            write('|');textcolor(14);write(A[i,j]:3,' ');textcolor(7);
          end else write('|',A[i,j]:3,' ');
      end;write('|');textcolor(12);Write(Sum:4);textcolor(7);WriteLn(' |');
      WriteLn('|----+----+----+----+----+-----|');Sum:=0;
  End;
END;
 
Procedure min_elem;
Var
i, j, min : byte;
BEGIN
WriteLn('Ищем наименьший элемент в каждой строке матрицы "A" :');
min:=101;
FOR i:=1 TO n DO
  Begin
    FOR j:=1 TO n DO
      begin
        If A[i,j] < min then
          begin
            min := A[i,j];
            write('|',A[i,j]:3,' ');
          end else write('|',A[i,j]:3,' ');
      end;write('|');textcolor(14);Write(min:3);textcolor(7);writeLn(' |');
      WriteLn('|----+----+----+----+----+----|');min:=101;
  End;
End;
 
Procedure max_elem;
Var
i, j, c, v : byte;
max : integer;
BEGIN
max:=0;c:=1;v:=n;
WriteLn('Ищем наибольший элемент в выделенной области матрицы "A" :');
FOR i:=1 TO n DO
  BEGIN
    FOR j:=1 TO n DO
      Begin
        IF ((i=c) AND (j<=v)) THEN
          begin
            write('|');textcolor(14);write(A[i,j]:3,' ');textcolor(7);
            IF A[i,j] > max THEN max :=A[i,j];
          end
        else
          begin
            write('|');textcolor(7);write(A[i,j]:3, ' ');textcolor(7);
          end;
      End;write('|');WriteLn;
WriteLn('|----+----+----+----+----+----|');
v:=v-1;inc(c);
  END;
WriteLn('Наибольший элемент области = ',max);
END;
 
Procedure Exit;
BEGIN
halt
END;
 
END.

Program MAIN;
USES CRT, UNIT_1;
VAR
k : byte;
w : char;
BEGIN
REPEAT;
clrscr;
WriteLn('              МЕНЮ');
WriteLn('Для поиска суммы каждой строки нажмите 1');
WriteLn('Для поиска минимального элемента в строке нажмите 2');
WriteLn('Для поиска максимального элемента -');
WriteLn('в заштрихованной области нажмите 3');
WriteLn('Для выхода из программы нажмите 4');
ReadLn(k);
  case k of
    1 : begin start;sum;end;
    2 : begin start;min_elem;end;
    3 : begin start;max_elem;end;
    4 : exit;
      else
    WriteLn('Выберите число 1, 2, 3 или 4');
  end;
WriteLn('Для возврата в меню нажмите Y/y/Н/н');
Readln(w);
until not (w in ['Y','y','Н','н']);
END.