Вычисление суммы "K" слагаемых – элементов массива, начиная с третьего по порядку

idx = 3; sum:=0;
for i:=1 to Cnt do begin // Cnt - кол-во суммируемых элементов
  sum:=sum+A[idx];
  inc(idx,2);
end;
writeln(sum:9:2);

PROGRAM Simbol_array;
Var
 M,n,k,i,j :integer;
 a :array[1..100] of real;
 s: real;
 Fout :text;
 label metka;
 Begin
 s:=0;
  writeln('Введите количество суммируемых элементов');
 readln(k);
 writeln('Введите количество элементов массива,');
metka: readln(n);
if (N<2) and (N>0) then
begin 
 Writeln('Недопустимое количество введите снова');
 goto metka;
end;
  Assign(Fout,'UMNIK4.DAT');//Связали фаут с умник 
  Rewrite(Fout);//Открыли файл для записи
  for i:=1 to n do 
  begin
    write(Fout,a[i]:9:2);//Печать в текущей строке
    if i mod 6 = 0 then writeln(Fout);//Если номер элемента кратен 30 переходим на новую строку
  end;
   //Основной раздел поиска номера
  j:=3;
  M:=(N-(3-1))div 3;
  for i:=1 to M do //Внешний цикл перебора символов
  begin
      S:=s+a[j];
      j:=j+3;
     end;
      //Раздел вывода результата
      writeln(Fout,'a');
      Close(Fout);
end.

var m,n,k,i :integer;
    a :array[1..100] of real;
    s: real;
    Fout :text;
begin
randomize;
repeat
write('Введите количество суммируемых элементов k>0 k=');
readln(k);
until k>0;
repeat
write('Введите количество элементов массива n>=',2+2*k-1,' n=');
readln(n);
until n>=2+2*k-1;
for i:=1 to n do
 begin
  a[i]:=10*random;
  write(a[i]:9:2);
  if i mod 6=0 then writeln;
 end;
writeln;
s:=0;
i:=3;
m:=0;
while m<k do
 begin
  s:=s+a[i];
  inc(m);
  i:=i+2;
 end;
writeln('S=',s:0:2);
Assign(Fout,'UMNIK4.txt');//Связали фаут с умник
Rewrite(Fout);//Открыли файл для записи
for i:=1 to n do
 begin
  write(Fout,a[i]:9:2);//Печать в текущей строке
  if i mod 6 = 0 then writeln(Fout);//Если номер элемента кратен 6 переходим на новую строку
 end;
writeln(Fout);
writeln(Fout,'s=',s:0:2);
Close(Fout);
end.