[РЕШЕНО][Pascal ABC] Ошибка: переменная цикла for должна описываться в том же блоке что и цикл for

[sudar]

uses crt;
const
 m=20;
 n=35;
type
 mas=array [1..100,1..100] of integer;
var
 i,j,k,x,y,t,l,r,u,d,z:integer;
 a,b:mas;
 
Procedure graf(a:mas);
begin
 for y:=1 to m do
  begin
   for x:=1 to n do
    if a[y,x]=1 then write('-')
    else write(' ');
   writeln;
  end;
 end;
 
Procedure prep;
begin
 For y:=1 to m do
   for x:=1 to n do
   a[y,x]:=1;
end;
 
Procedure mway;
 begin
  randomize;
  k:=random(m-1)+1;
  x:=1;
  y:=k;
  a[y,x]:=0;
  a[y,x+1]:=0;
  x:=x+1;
  repeat
   k:=random(3);
   case k of
    0: if (a[y-1,x]<>0) and (y-1>1) and (a[y-1,x-1]<>0) and (a[y-1,x+1]<>0) then
         begin a[y-1,x]:=0;
         y:=y-1;
         end;
    1: if (a[y,x+1]<>0) and (a[y-1,x+1]<>0) and (a[y+1,x+1]<>0) then
         begin a[y,x+1]:=0;
         x:=x+1;
         end;
    2: if (a[y+1,x]<>0) and (y+1<m) and (a[y+1,x+1]<>0) and (a[y+1,x-1]<>0) then
         begin a[y+1,x]:=0;
         y:=y+1;
         end;
    3: if (a[y,x-1]<>0) and (x-1>1) and (a[y+1,x-1]<>0) and (a[y-1,x-1]<>0) then
         begin a[y,x-1]:=0;
         x:=x-1;
         end;
    end;
  until x=n;
 end;
 
 Procedure ris(a:mas); {$M 65520,0,655360}
 begin
 For y:=1 to m do
 begin
  for x:=1 to n do
   Write(a[y,x]);
  Writeln;
  end;
 end;
 
 begin
 clrscr;
  prep;
  mway;
  ris(a);
  t:=0;
  randomize;
  Writeln('Для продолжения нажмите ENTER');
  readln;
   repeat
    x:=random(n-2)+1;
     For y:=1 to m do
      if a[y,x]=0 then  begin u:=0; d:=0; r:=0; l:=0; z:=0;
        repeat
         k:=random(4);
         case k of
          0: if (a[y-1,x]<>0) and (y-1>1) and (a[y-2,x]>0)
             and (a[y-2,x-1]<>0) and (a[y-2,x+1]<>0) and (a[y-1,x-1]<>0) and (a[y-1,x+1]<>0) then
             begin a[y-1,x]:=0;
             u:=0;
             y:=y-1;
             end
             else u:=1;
          1: if (a[y,x+1]<>0) and (a[y,x+2]<>0) and (a[y-1,x+1]<>0) and
             (a[y+1,x+2]<>0) and (a[y-1,x+2]<>0) and (a[y+1,x+1]<>0) then
             begin a[y,x+1]:=0;
             r:=0;
             x:=x+1;
             end
             else r:=1;
          2: if (a[y+1,x]<>0) and (a[y+2,x]<>0) and (y+1<m) and (a[y+1,x+1]<>0) and
             (a[y+2,x+1]<>0) and (a[y+2,x-1]<>0) and (a[y+1,x-1]<>0) then
             begin a[y+1,x]:=0;
             y:=y+1;
             d:=0;
             end
             else d:=1;
          3: if (a[y,x-1]<>0) and (a[y,x-2]<>0) and (x-1>1) and (a[y+1,x-1]<>0) and
             (a[y+1,x-2]<>0) and (a[y-1,x-2]<>0) and (a[y-1,x-1]<>0) then
             begin a[y,x-1]:=0;
             x:=x-1;
             l:=0;
             end
             else l:=1;
         end;
        z:=u+l+r+d;
       until z=4;
      end;
     t:=t+1;
    until t=m*n;
    ris(a);
    graf(a);
  readln
 end.

[Вадим Мошев]

Вот так надо писать цикл for в Pascal ABC:

for var i:=1 to N do ...

Дополнительно объявлять переменную i (параметр цикла) в таком случае не надо.