Ошибка "нельзя присвоить левой части" - Turbo Pascal

uses crt; const n3=3;n5=5;n8=8; c1:array [1..8] of real=(10110,34926,46875,2145,2681,1608,536,536); c2:array [1..8] of real=(31224,12094,47036,2171,2699,1643,587,587);
c3:array [1..8] of real=(42625,69,43390,2231,2759,1703,647,647);
c4:array [1..8] of real=(42619,0,37864,2621,2924,2043,888,888);
s=145374;
var a:array[1..n3] of real;
b:array[1..n5] of real;
c,c10,c11,c12,c13:array[1..n8] of real;
s5,s6,s7,s8,s9,s10,s11,s12,s13:real;
i,j,k:integer;
begin
clrscr;
                      {1}
writeln('поток 1');
for i:=1 to 8 do begin
writeln ('c[',i,']=',c1[i]:3:0);end;
writeln(' Расход общий =',s:3);
                      {2}
writeln(' поток 2');
for i:=1 to 8 do begin
writeln ('c[',i,']=',c2[i]:3:0);end;
writeln(' Расход общий =',s:3);readkey;
                      {3}
writeln(' поток 3');
for i:=1 to 8 do begin
writeln ('c[',i,']=',c3[i]:3:0);end;
writeln(' Расход общий =',s:3);
                      {4}
writeln(' поток 4');
for i:=1 to 8 do begin
writeln ('c[',i,']=',c4[i]:3:0);end;
writeln(' Расход общий =',s:3);readkey;
                      {5}
writeln(' поток 5');
for i:=4 to 8 do begin
writeln ('c[',i,']=',c1[i]:3:0);end;
s5:=s-c1[1]-c1[2]-c1[3];
writeln(' Расход общий =',s5:3:0);
                      {6}
writeln(' поток 6');
s6:=c4[4]-c1[4];
writeln(' Расход общий =',s6:3:0);
                      {7}
writeln(' поток 7');
for i:=5 to 8 do begin
c4[i]:=c4[i]-c1[i];end;
c4[4]:=0;s7:=0;
for i:=1 to 8 do begin
s7:=s7+c4[i];end;
for i:=1 to 8 do begin
writeln ('c[',i,']=',c4[i]:3:0);end;
writeln(' Расход общий =',s7:3:0);
                      {8}
writeln(' поток 8');
s8:=0;
for i:=5 to 8 do begin
s8:=s8+c4[i];end;
for i:=5 to 8 do begin
writeln ('c[',i,']=',c4[i]:3:0);end;
writeln(' Расход общий =',s8:3:0);
                      {9}
writeln(' поток 9');
s9:=0;
for i:=1 to 3 do begin
s9:=s9+c4[i];end;
for i:=1 to 3 do begin
writeln ('c[',i,']=',c4[i]:3:0);end;
writeln(' Расход общий =',s9:3:0);
                      {10}
writeln(' поток 10');
for i:=1 to 4 do begin
c10[i]:=0;end;
c10[5]:=c4[5];c10[6]:=0.8*c4[6];
c10[7]:=0.4*c4[7];c10[8]:=0.1*c4[8];
s10:=0;
for i:=5 to 8 do begin
s10:=s10+c10[i];end;
for i:=5 to 8 do begin
writeln ('c[',i,']=',c10[i]:3:0);end;
writeln(' Расход общий =',s10:3:0);
                      {11}
writeln(' поток 11');
for i:=5 to 8 do begin
c11[i]:=c4[i]-c10[i];end;
s11:=0;
for i:=5 to 8 do begin
s11:=s11+c11[i];end;
for i:=5 to 8 do begin
writeln ('c[',i,']=',c11[i]:3:0);end;
writeln(' Расход общий =',s11:3:0);
                      {12}
writeln(' поток 12');
for i:=5 to 8 do begin
c12[i]:=2/3*c11[i];end;
s12:=0;
for i:=5 to 8 do begin
s12:=s12+c12[i];end;
for i:=5 to 8 do begin
writeln ('c[',i,']=',c12[i]:3:0);end;
writeln(' Расход общий =',s12:3:0);
                      {13}
writeln(' поток 13');
for i:=5 to 8 do begin
c13[i]:=1/3*c11[i];end;
s13:=s11-s12;
for i:=5 to 8 do begin
writeln ('c[',i,']=',c13[i]:3:0);end;
writeln('Расход общий=',s13:3:0);
readkey;
end.