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

Program gdfg;
uses crt;
var i,j,n,m,min,k : integer;
t : array [1..100,1..100] of integer;
begin
clrscr;
write('vvedite kol-vo stolbcov = ');
readln(m);
write('vvedite kol-vo rjadkov = ');
readln(n);

for i:=1 to n do
for j:=1 to m do begin
write('vvedite ',i,' ',j,' znachenie = ');
readln(t[i][j]);
end;

for i:=1 to n do begin
for j:=1 to m do write(t[i][j]:4);
writeln;
end;
writeln;

k:=0;
min:=t[n-1][1];
for i:=1 to n do
for j:=1 to m do begin
if ((i<=(m-j)) and (i>j) and (t[i][j]=0)) then k:=k+1;
if ((i>(n-2)) and (t[i][j]<min)) then min:=t[i][j];
end;

if min=0
then writeln('deystvie nevozmozhno')
else writeln(k/min:8:4);
readln;
end.