Написать программу на паскале: найти разность между К и суммой всех элементов массива с нечетными индексами

Желательно в задании уточнять тип массива (целый, вещественный ) и споособ его генерации(ввод с клавиатуры, генератор случайных чисел).   В данной программе массив получен с помощью  генератора случайных чисел       Program raznost; Uses Crt; const n=100; {максимальный размер массива} var a:array[1..n] of  integer;           i,m:integer;        k,s,rez:longint; begin      clrscr;      write('Введите К: ');      readln(k);      write('Введите размер массива <100: ');      readln(m);          randomize;       write('Исходный массив:')       s:=0;      for i:=1 to m do           begin                a[i]:=random(50)+25;                     write(i:3);                     if  (i mod 2)<>0 then s:=s+a[i];              end;      writeln;      rez:=k-s;             writeln('Разность между K и суммой всех элементов массива с нечетными индексами=',rez);      readkey; end.