Задача на двумерный массив. Процедура

program pascal;
uses crt;
type 
    matrix = array [1..100,1..100] of integer ; 
var
    i,j,menu,pol,otr:integer;
    mat:matrix;
procedure input;
begin
            clrscr;
    writeln('Введите матрицу размером 3*3');
        for i:=1 to 3 do 
            for j:=1 to 3 do
        read(mat[i,j]);
            clrscr;
 
 
end;
 
 
procedure input_avto;
begin
        randomize;
            for i:=1 to 3 do 
            for j:=1 to 3 do
            mat[i,j]:=random(200)-100;
            clrscr;
            Writeln ('Матрица размером 3*3 успешно введена');
 
 
end;
 
 
procedure output ;
begin 
clrscr;
    writeln('Ваша матрица');
   For i:=1 to 3 do 
   begin 
      For j:=1 to 3 do 
         Write (mat[i, j]:4);
      Writeln; 
   end ; 
 
end ; 
procedure schet;
begin
otr:=0;
pol:=0;
 for i:=1 to 3 do
    begin
 for j:=1 to 3 do
        if mat[i,j] > 0 then
            otr:=otr+1
            else
                if mat[i,j] < 0 
                then
                pol:=pol+1
                end;
 Writeln ('положительных элементов ', pol);
Writeln('отрицательых элементов ',otr);
 
end;
 
  
begin
    clrscr;
 
repeat
Writeln;
    writeln('1 - Ввод матрицы');
    writeln('2 - Ввод матрицы автоматически');  
    writeln('3 - Вывод матрицы');
    writeln('4 - Подсчитать полоительные и отрицательные элементы');
    writeln('5 - Выход');
    Writeln;
 
    read(menu);
    writeln;
    case menu of
    
    1:input;
    2:input_avto;
    3:output;
    4:schet;
    
    
    end;
    
        until menu = 5;
    clrscr;
 
end.