Program1.pas(17) : Нельзя изменять значение переменной цикла внутри этого цикла
Помогите исправить ошибку .
         Program Lin_10;
uses crt ;
type mas = array [1..9,1..9] of integer ;
var D,b:mas;
i,j,t,min:integer ;
Begin
clrscr;
Randomize ;
for i:=1 to 9 do begin
for j:=1 to 9 do begin
D[i,j]:=random(30)-60;
 Write(D[i,j]:4);
 End; 
Writeln;     
 Writeln(' Задача 10_1 ') ;
for i:=1 to 9 do 
for j:=1 to 9 do begin 
min:=D[i,j]; 
End; 
If min>D[i,j] then min:=[i,j];
 End; 
Writeln ;
 Writeln('Min=',min); 
     Writeln(' Задача 10_2 ');
 for i:=1 to 9 do begin
 for j:=1 to 9 do begin
 If (D[i,j] mod 2) = 0 then
 D[i,j]:=0 ; 
Write(D[i,j]:4); 
End;  Writeln; 
   Writeln(' Задача 10_3 '); 
    t:=1;
 for j:=1 to 9 do begin
 i:=j; 
B[t]:=D[i,j];
 t:=t+1; 
u:=t; End;
For t:=1 to u-5 do begin
Write (D[t]:4);
End;
Writeln; 
 Writeln(' Задача 10_4 ');   
Writeln(' Задача 10_5 ');
sum:=0;
for i:=1 to 9 do
 For j:=1 to 9 do begin
If D[i,j] mod 3 = 0 then
 Sum:=sum+D[i,j];
End;
Write('sum=',sum);
Readln;
End;

Program Lin_10;{uses crt ;}const n = 9;var D:array [1..n,1..n] of integer ;  B:array[1..100] of integer;  i,j,t,k:integer ;  average:real;Begin  Writeln(' Задача 10 ') ;  Randomize ;  for i:=1 to n do begin    for j:=1 to n do begin      D[i,j]:=random(60)-30;      Write(D[i,j]:4, ' ');    End;     Writeln;     end;  Writeln(' Задача 10_1 ') ;  average:=0;   k:=0;  for i := 1 to n do begin    j := n+1-i;    If D[i,j] > 0 then begin      average :=average + D[i,j];      k:=k+1;    End;   End;   Writeln('average=',average/k);   Writeln ;  Writeln(' Задача 10_2 ');  for i:=1 to n do begin    for j:=1 to n do begin      If D[i,j] < -5 then        D[i,j]:=0 ;       Write(D[i,j]:4);     End;      Writeln;   End;   Writeln(' Задача 10_3 ');   t:=0;  for i:=1 to n do     for j:=1 to n do      If j mod 3=0 then begin        t:=t+1;         B[t]:=D[i,j];        Write(B[t]:4);       end;    Writeln;   Writeln(' Задача 10_4 ');     t:=0;  for i:=1 to n do     for j:=1 to n do      If D[i,j] < 0 then        t:=t+1;   Writeln(t);   Writeln;   Writeln(' Задача 10_5 ');  for i:=1 to n do begin    t:=0;    for j:=1 to n do      If D[i,j] < 0 then        t:=t+1;     Writeln(i,' = ',t);   End;    Readln;End.