Встречено 'array', а ожидался оператор - Pascal ABC

uses
crt;
var
k: integer;
a, b, c, x, D, x1, x2, x3,x4, z, t, t1, t2: real;
begin
Writeln('Введите цыфру какое именно решения вы хотите = ');
Writeln('Линейное уравнения - "1"');
Writeln('Квадратное уравнение - "2"');
Writeln('Биквадратное уравнение - "3"');
Readln(z);
if z=1 then
begin
Write('Введите значение А = ');
readln(a);
Write('Введите значение В = ');
readln(b);
if (a=0) then writeln ('Нет решений') else
if (b=0) then writeln ('X - любое число') else
writeln ('X < ',-b/a:0:2);
end;
if z=2 then
begin
Write('Введите значение А = ');
readln(a);
Write('Введите значение В = ');
readln(b);
Write('Введите значение C = ');
readln(c);
D := b * b - 4 * a * c;
if (D < 0) then Writeln('корней нет') else
if (D > 0) then
begin
x1 := (-b + sqrt(d)) / (2 * a);
x2 := (-b - sqrt(d)) / (2 * a);
Writeln('x1=', x1:0:3, ' x2=', x2:0:3);
end
else
if (D = 0) then
Writeln('x1=x2 =', -b / 2 * a);
end;
if z=3 then
Begin
write('Введите значение a ='); readln(a);
write('Введите значение b ='); readln(b);
write('Введите значение c ='); readln(c);
d:=b*b-4*a*c;
if d<0 then write('Корней нет') else
if d=0 then begin t:=-b/2*a; writeln('x1= ',sqrt(t):3:3,'; x2= ', -sqrt(t):3:3); end else
if d>0 then begin t1:=(-b+sqrt(d))/2*a; t2:=(-b-sqrt(d))/2*a;
 
if (t1<0) and (t2<0) then writeln('Корни у дискриминанта получиись отрицательными, следовательно решения нет')
else begin
if (t1>=0) and (t2>=0) then writeln('x1= ',sqrt(t1):3:3,'; x2= ',sqrt(t2):3:3,'; x3= ',-sqrt(t1):3:3,'; x4= ',-sqrt(t2):3:3)
else
if (t2<0) then writeln('x1= ',sqrt(t1):3:3,'; x2= ', -sqrt(t1):3:3) else
if (t1<0) then writeln('x1= ',sqrt(t2):3:3,'; x2= ', -sqrt(t2):3:3);
 
if z=3 then
 
var
   a1,b1,c1,d1,i,t,j:integer;
   s: real;
   c:array [1..3,1..4] of integer;
   a,b,d: array[1..3,1..3]of integer;
   begin
   clrscr;
   for t:=1 to 3 do                  {vvod rasshirennoi matricu}
     begin
     writeln(t,' строка массива');
     for i:=1 to 4 do read(c[t,i]);
     end;
   writeln;
    for i:=1 to 3 do                     {zamena odnogo stolbca svobodnumi elementami}
      begin
      for t:=1 to 3 do
      begin
      if t=1 then a[i,t]:=c[i,4] else a[i,t]:=c[i,t];
       write(' ',a[i,t]);
       end;
       writeln;
       end;writeln;
 
     for i:=1 to 3 do                     {zamena odnogo stolbca svobodnumi elementami}
      begin
      for t:=1 to 3 do
      begin
      if t=2 then b[i,t]:=c[i,4] else b[i,t]:=c[i,t];
       write(' ',b[i,t]);
       end;
       writeln;
       end; writeln;
 
      for i:=1 to 3 do                     {zamena odnogo stolbca svobodnumi elementami}
      begin
      for t:=1 to 3 do
      begin
      if t=3 then d[i,t]:=c[i,4] else d[i,t]:=c[i,t];
       write(' ',d[i,t]);
       end;
       writeln;
       end;
       j:=c[1,1]*c[2,2]*c[3,3]+c[2,1]*c[3,2]*c[1,3]+c[1,2]*c[2,3]*c[3,1];
      j:=j-(c[1,3]*c[2,2]*c[3,1]+c[2,1]*c[1,2]*c[3,3]+c[1,1]*c[2,3]*c[3,2]);
      writeln;
      writeln(' det =',j);     {rascet opredelitely}
      c1:=j;
 
       j:=a[1,1]*a[2,2]*a[3,3]+a[2,1]*a[3,2]*a[1,3]+a[1,2]*a[2,3]*a[3,1];
      j:=j-(a[1,3]*a[2,2]*a[3,1]+a[2,1]*a[1,2]*a[3,3]+a[1,1]*a[2,3]*a[3,2]);
      writeln;
      writeln(' det =',j);     {rascet opredelitely}
      a1:=j;
      j:=b[1,1]*b[2,2]*b[3,3]+b[2,1]*b[3,2]*b[1,3]+b[1,2]*b[2,3]*b[3,1];
      j:=j-(b[1,3]*b[2,2]*b[3,1]+b[2,1]*b[1,2]*b[3,3]+b[1,1]*b[2,3]*b[3,2]);
      writeln;
      writeln(' det =',j);     {rascet opredelitely}
      b1:=j;
      j:=d[1,1]*d[2,2]*d[3,3]+d[2,1]*d[3,2]*d[1,3]+d[1,2]*d[2,3]*d[3,1];
      j:=j-(d[1,3]*d[2,2]*d[3,1]+d[2,1]*d[1,2]*d[3,3]+d[1,1]*d[2,3]*d[3,2]);
      writeln;
      writeln(' det =',j);     {rascet opredelitely}
      d1:=j;
      s:=a1/c1;
      writeln(' x1= ',s:3:2);
      s:=b1/c1;
      writeln(' x2= ',s:3:2);
      s:=d1/c1;
      writeln(' x3= ',s:3:2);
      readln;readln;
      end.
 
end;
end;
end;
end.