Проблема с подпрограммами

[KoFeMaN]

Ув.программисты я написал программу которая находит сумму максимальных элементов псевдодиагоналей.т.е.диагоналей матрицы перпендикулярных главной диагонали.суть в том что когда я начал вставлять код в процедуры(это нужно по заданию)код не выдает ошибки а просто не производит расчетов и выдает ноль

program lab4;
Const m=4;
type t_matr =array [1..m,1..m] of integer;
procedure read_matr(a:t_matr);
var i,j:byte;
begin
 for i:=1 to m do
    for j:=1 to m do
      read(a[i,j])
end;
procedure under_diag(const a:t_matr;var s,max:integer);
var i,j,t:byte;
begin
  t:=m;
  while j<>0 do
    begin
      j:=m;
      i:=t-1;
      t:=i;
      max:=a[i,j];
      while i<>(m+1) do
        begin
          if a[i,j]>max then
            max:=a[i,j];
          i:=i+1;
          j:=j-1;
        end;
      s:=s+max;
  end
end;
 procedure on_diag(const a:t_matr;var s,max:integer);
 var i,j,t:byte;
 begin
  t:=m;
  while (j<>1) and (i<>3) do
    begin
      j:=t-1;
      i:=1;
      t:=j;
      max:=a[i,j];
      while j<>0 do
        begin
          if a[i,j]>max then
            max:=a[i,j];
          i:=i+1;
          j:=j-1;
        end;
      s:=s+max;
    end
 end;
Var max,s:integer;
    a:t_matr;

begin
  s:=0;
  read_matr(a);
  under_diag(a,s,max);
  on_diag(a,s,max);
  Writeln(s);
  readln(s);
end.

[eoln]

procedure read_matr(var a:t_matr);
var i,j:byte;
begin
 for i:=1 to m do
    for j:=1 to m do
      read(a[i,j])
end;