Вычислить суточный сток реки — Pascal(Паскаль)

Program rechka;
uses crt;
var A:array [1..100] of real;
i,n:integer; s,l,dl,v:real; Q:extended;
begin
clrscr;
writeln ('введите среднюю скорость реки (м/сек)');
readln (v);
writeln ('введите ширину реки l');
readln (l);
writeln ('введите кол-во измерений глубин');
readln (n);
writeln ('введите значение глубин : ');
for i:=1 to n do
readln (A[i]);
s:=0;
dl:=l/(n-1);
for i:=1 to n-1 do
s:=s+((A[i]+A[i+1])/2*dl);
Q:=86400*v*s;
writeln (' суточный сток реки = ', Q:5:2);
writeln (' площадь попереч. сеч. ', S:3:2);
for i:=1 to n-1 do
writeln (' площадь между глубинами ',i,' i ',i+1,' = ',((A[i]+A[i+1])/2*dl):3:2);
readln;
end.