Дан одномерный массив a размерностью n(< =0). значение массива ввести с клавиатуры, заполнить массив с генератора случайных чисел. найти среднее арифметическое и количество всех положительных элементов массива)) составить программу в паскале, буду : )

Program program1; var i, n: integer; var result1, result2, sum: real; var array1: array [0..1000] of real; begin         randomize;         result1 : = 0;         sum : = 0;         write('введите значение n (не менее 0 и не более 255): ');         readln(n);         for i : = 1 to n do                 begin                   array1[i] : = random(1000) - random(1000);                 end;                 begin                   writeln('массив размером - ', n, ' элементов(а): ');                   for i : = 1 to n do write(array1[i], ' ');                   writeln;                 end;         for i : = 1 to n do                 begin                   if array1[i] > 0 then result1 : = result1 +1;                 end;         for i: =1 to n do sum : = sum + array1[i];         result2 : = sum / n;         writeln('количество положительных элементов массива = ', result1);         writeln('среднее арифметическое = ', result2); end.

Program n1; const n=10; var a: array[1..n] of integer; i,ko,kp: integer; begin randomize; ko: =0; kp: =0; writeln('исходный массив: '); for i: =1 to n do begin a[i]: =random(21)-10; write(a[i],' '); if a[i]> 0 then  if a[i]< 0 then ko: =ko+1; w w e