Найти максимальный элемент матрицы, лежащий выше главной диагонали - Turbo Pascal

Формулировка задачи:

задание: Найти максимальный элемент матрицы, лежащий выше главной диагонали. Ввод данных организовать из файла "in.txt", вывод данных в файл "out.txt". Выводит только "0", хотя максимальное число не 0. Помогите пожалуйста. Завтра сдавать, а то к сессии не допустят

program mas;
var M: array [1..6,1..6] of integer;
    i,j,max,min:integer;
    f,s: text;
 
begin
    assign(f,'in.txt');
    reset(f);
    read(f,i,j);
 
     max:=M[i,j];
     for i := 1 to 6 do
         begin
           for j := 1 to 6 do
             begin
              if(i<j)and (M[i,j] > max) then
              max:=M[i,j];
             end;
         end;
         close(f);
         assign(s,'out.txt');
         rewrite(s);

    write(s,max);
    close(s);
end.

Решение задачи: «Найти максимальный элемент матрицы, лежащий выше главной диагонали»

Листинг программы

program mas;
 uses crt;
 var M               : array [1..6,1..6] of integer;
     i,j,max,st      : integer;
     f,s             : text;
 
 begin
 clrscr;
 assign(f,'in.txt');reset(f);
 assign(s,'out.txt');rewrite(s);
 st:=0;
 writeln('Массив М из файла "in.txt"');
 for i := 1 to 6 do
  begin
    for j := 1 to 6 do
      begin
        read(f,m[i,j]);write(m[i,j]:3);
        begin
          if(i<j) then
           begin
             if st=0 then
               begin
                 st:=1;max:=M[i,j];                                                                                                      
               end
                     else
               begin
                 if max<M[i,j] then max:=M[i,j];
               end;
           end;
        end;
      end;writeln;
  end;
 writeln;
 writeln('Максимальный выше главной диагонали:',max:5);
 write(s,max);
 close(f);
 close(s);
 readln;
 end.

Объяснение кода листинга программы

Создается программа mas, которая использует библиотеку crt.
Объявляются переменные M, i, j, max, st, f и s. M - это массив целых чисел размером 6х6. i и j - это переменные для прохода по строкам и столбцам массива. max - это переменная для хранения максимального значения. st - это переменная для отслеживания позиции текущего максимума. f и s - это текстовые переменные для записи и чтения данных из файлов.
Запускается цикл чтения данных из файла in.txt.
Внутри цикла происходит чтение данных из файла и запись их в переменную m[i,j].
Если текущая строка меньше текущей строки (т.е. i < j), то проверяется, является ли текущее значение максимальным.
Если текущее значение не является максимальным, то обновляется переменная max.
После завершения цикла чтения данных из файла, выводится максимальное значение.
Закрываются файлы in.txt и out.txt.
Выводится сообщение о максимальном значении.
Программа завершается.