Разработать программу, позволяющую произвести нахождение суммы и количества элементов массива, расположенных между первым и последним положительными элементами массива — Pascal(Паскаль)

const n=10;
var
a:array[1..n] of integer;
k1,k2,i,sum,kol:integer;
begin 
for i:=1 to n do
 begin
    a[i]:=10-random(15);
    write(' ',a[i]);
 end;
writeln();

k1:=1;
k2:=n;

while a[k1]<0 do
 k1:=k1+1;
writeln(k1);
 
while a[k2]<0 do
 k2:=k2-1;
writeln(k2);
 
sum:=0;
i:=k1+1;
for i:=i to k2-1 do
 sum:=sum+a[i];
 
kol:=k2-k1-1;
writeln('kolvo ', kol);
writeln('sum ', sum);
end.