Дан массив целых чисел, состоящий из 26 элементов. Заполнить его случайными числами

uses Crt;
const n=26;
var m:array[1..n]of Integer;
i,k,sum,a:Integer;
begin
Randomize;
ClrScr;
Writeln('Массив,заполненный случайными числами:');
for i:=1 to n do 
begin
m[i]:=Random(21)-10;
Write(m[i],' ');
end;
Writeln;
Write('A=');
Readln(a);
for i:=1 to n do
begin
if odd(i) then inc(sum,m[i]);
if (m[i]>a) and (m[i] mod 5=0) then inc(k);
end;
Writeln('Сумма элементов,имеющих нечетные индексы: ',sum);
Writeln('Количество элементов массива,значения которых больше числа А и кратны 5: ',k);
Writeln('Индексы положительных элементов:');
for i:=1 to n do 
if m[i]>0 then 
begin
Write(i,' ');
m[i]:=0;
end;
Writeln;
Writeln('Полученный массив:');
for i:=1 to n div 2 do
Writeln(m[i]:4,m[i+n div 2]:4);
Readln;
end.