Объясните пожалуйста ошибку!!!

uses DOS;
const
 max=10;
var tower1,tower2,tower3, tower4,tower5,tower6, d:array[1..max] of integer;
    i, j, m: integer; c1, c2, c3: string;c4,c5,c6:array[1..10] of string;
    t, g:text;
{0} Hour2,Minute2,Sec2,MS2,Hour1,Minute1,Sec1,MS1,h11,min11,sec11,ms11:word;
{1} Hour, Minute, Sec111, MS111, h, min, sec, ms: array[1..10] of word;
 
procedure RECUR(n,v1,v2,v3:integer;s1,s2,s3:array of integer;c11,c12,c13:string);
 
  procedure print(s11,s12,s13:array of integer;c21,c22,c23:string);
{$S-}   begin
       writeln(t,'put disk');
{$R-}        for i:=1 to m do write(t,s11[i],' ');
       writeln(t,c21);
        for i:=1 to m do write(t,s12[i],' ');
       writeln(t,c22);
        for i:=1 to m do write(t,s13[i],' ');
       writeln(t,c23);
   end;
 
 begin
if n=1 then
  begin
   v1:=v1+1;
   s1[v1]:=n;
   print(s1,s2,s3,c11,c12,c13);
  end
else
  begin
   v1:=v1+1;
{$R-}   s1[v1]:=n;
   print(s1,s2,s3,c11,c12,c13);
   Recur(n-1,v3,v2,v1,s3,s2,s1,c13,c12,c11);
   Recur(n-1,v1,v2,v3,s1,s2,s3,c11,c12,c13);
  end;
end;
 
begin
       GetTime (Hour1, Minute1, Sec1, MS1);
    
    for i:=1 to 10 do begin
     {i:=0;} GetTime (Hour[2*i-1], Minute[2*i-1], Sec111[2*i-1], MS111[2*i-1]); end;
     
    assign(t,'d:\pas\bal\lab221.txt');
    assign(g,'d:\pas\bal\zapis221.txt');
    rewrite(t);
    append(g); 
   {writeln('vvedite:');  readln(m);} m:=1;
  for i:=1 to m do
   begin
     tower1[i]:=0;
     tower2[i]:=0;
     tower3[i]:=0;
   end; 
  c1:='tower1';
  c2:='tower2';
  c3:='tower3';
 RECUR(m,0,0,0,tower2,tower1,tower3,c2,c1,c3);
    gettime (Hour2, Minute2, Sec2, MS2);
      h11:=Hour2-Hour1;
      min11:=Minute2-Minute1;
      sec11:=Sec2- Sec1;
      ms11:=MS2-MS1;
      writeln(t,m,'      * ',h11,' :',min11,' :',sec11,' :',ms11);
   for i:=1 to 10 do begin 
        d[i]:=i;
    for j:=1 to d[i] do
   begin
     tower4[j]:=0;
     tower5[j]:=0;
     tower6[j]:=0;
   
     c4[i]:='tower4';
     c5[i]:='tower5';
     c6[i]:='tower6';
   RECUR(d[i],0,0,0,tower5[j],tower4[j],tower6[j],c5[i],c4[i],c6[i]);
    gettime (Hour[2*i], Minute[2*i], Sec111[2*i], MS111[2*i]);
      h[i]:=Hour[2*i]-Hour[2*i-1];
      min[i]:=Minute[2*i]-Minute[2*i-1];
      sec[i]:=Sec111[2*i]- Sec111[2*i-1];
      ms[i]:=MS111[2*i]-MS111[2*i-1];
      if (ms[i]<60) then begin
         writeln(g,'*          *                *');
         writeln(g,'*   ',d[i],'      * ',h[i],' :',min[i],' :',sec[i],' :',ms[i],'    *');
         writeln(g,'*          *                  *');
         writeln(g,'*****************************');
      end;
      if (ms[i]>60) or (ms[i]=60) then begin
         ms[i]:=0; sec[i]:=sec[i]+1;
         writeln(g,'*          *                *');
         writeln(g,'*   ',d[i],'      * ',h[i],' :',min[i],' :',sec[i],' :',ms[i],'    *');
         writeln(g,'*          *                *');
         writeln(g,'*****************************');
      end;
           end; end;
close(g);   close(t); 
end.