Сумму элементов массива с k1 по k2 (значения k1 и k2 вводятся с клавиатуры;k2>k1 — Pascal(Паскаль)

program hhh;
Uses crt;
 Var x:array [1..100] of integer;
     i,n,k1,k2,s:integer;
begin
clrscr;
writeln ('Vvedite kol - vo elementov massiva ');
Readln (n);
 for i:=1 to n do begin
                  write ('Vvedite ',i, ' element ');
                  Readln (x[i]);
                  end;
Writeln (' polycheny chisla ');
for i:=1 to n do write (x[i]:3);
writeln;
 Writeln ('Vvedite k1 ');
 Readln (k1);
 Writeln ('Vvedite k2 ');
 Readln (k2);
 Writeln;
 If k2<=k1 then writeln ('Ne udovletvor9et yclovuju K2>k1 ')
 else
   begin
   S:=0;
     for i:=k1 to k2 do
     s:=s+x[i];
   end;
Writeln;
Writeln ('OtBet: Summa=',S);
Readln
end.