Не запускается программа

program Program2;
uses crt;
var i, j, k, n : integer; s : real;
a,b:array [1..4,1..4] of real;
  r:array [1..4] of real;
  x:array [1..4] of real;
begin
     clrscr;
         a[1,1]:=3;
         a[1,2]:=1;
         a[1,3]:=-12;
         a[1,4]:=2;
         a[2,1]:=3;
         a[2,2]:=1;
         a[2,3]:=-11;
         a[2,4]:=1;
         a[3,1]:=-18;
         a[3,2]:=2;
         a[3,3]:=-1;
         a[3,4]:=0;
 
     b := a;
     k := 1;
 
      repeat
           j := k + 1;
           repeat
 
                 a[k,j] := a[k,j] / a[k,k];
                 j := j + 1;
           until ( j > ( n + 1 ) );
           i := k + 1;
           repeat
           j := k + 1;
                  repeat
                        a[i,j] := a[i,j] - a[k,j] * a[i,k];
                        j := j + 1;
                  until ( j > ( n + 1 ) );
           i := i + 1;
           until ( i > n );
           k := k + 1;
 
     until ( k = n );
 
     x[n] := a[n,n+1] / a[n,n];
     k := n - 1;
     repeat
           s := a[k,n + 1];
           j := k + 1;
     repeat
           s := s - x[j] * a[k,j];
           j := j + 1;
     until ( j > n );
           x[k] := s;
           k := k - 1;
     until ( k < 1 );
 
     writeln('x=',x[1]);
     writeln('y=',x[2]);
     writeln('z=',x[3]);
    readln;
end.