Получить сумму членов последовательности значения, которых меньше их порядкового номера

sum:=0;
for i:=1 to n do
if a[i]<i then
begin
sum:=sum+a[i];
end;

Uses
 CRT;
Var
 i,n:integer;
 a:array[1..20] of integer;
 sum:real;
begin
ClrScr;
readln(n);
randomize;
sum:=0;
for i:=1 to n do
begin
 a[i]:=random(10)-3;
 write(a[i]:3);
 if a[i]<i then
 begin
  sum:=sum+a[i];
 end;
end;
writeln;
writeln('Sum:=',sum);
readkey
end.

program z_11_21_201z;
        type mina=array[1..10000]of integer;
        type minb=array[1..10000]of integer;
        
    var a:mina;
        b:minb;
     n2,n1,min1,min2:integer;
                   n:real;
      I1:=1;
      I2:=1;
      i:=I1=I2;
   sumin:=0;
 begin
 write('Введите n =');
   readln(n);
   for i:=1 to n do
      begin
       writeln('Введите элементы a1,...,an',I1,'=');
        for i1:=1 to n1 do
    begin
          read(a[sqr(i1)]);
 end;  
 
 begin
 Min1:=a[1];
  for i1:=1 to n1 do
    if a[i1]<min1 then min1:=sqr(a[i1]);
 end;   
 
  begin
     n2:=100;
      writeln('Введите элементы a1^2,...,an^2',I2,'=');
        for i2:=1 to n2 do
  begin
read(b[i2]);
 end;  
 begin
 min2:=b[1];
  for i2:=1 to n2 do
    if b[i1]<min2 then min2:=b[i2];
 end;
 begin
 sumin:=sumin+(min1-min2);
    writeln ('РАЗНОСТЬ ДВУХ MIN = ',sumin);
 end;
end;
end;
end.