Задача на массивы

program arrrr;
 
var a, mi, max, i, s, p: integer;
    arr: array [1..10] of integer;
    fs, fp: boolean;
 
begin
  randomize;
  max := -20;
  s := 0;
  fs := false;
  write('a = ');
  readln(a);
  writeln;
  writeln('Source array:');
  for i := 1 to 10 do
    begin
      arr[i] := random(26) - 15;
      write(arr[i]:3, ' ');
      if arr[i] > a then
        begin
          s := s + arr[i];
          fs := true
        end;
      if arr[i] > max then
        begin
          max := arr[i];
          mi := i
        end;
    end;
  writeln;
  writeln;
  if fs
    then writeln('Sum all elements of array, greater than to ', a, ' is: ', s)
    else writeln('Elements of array, greater than to ', a, ' not found.');
  writeln;
  writeln('Greatest element of array equate to 0, result array:');
  arr[mi] := 0;
  p := 1;
  fp := false;
  for i := 1 to 10 do
    begin
      write(arr[i]:3, ' ');
      if arr[i] > 0 then
        begin
          p := p * arr[i];
          fp := true
        end
    end;
  writeln;
  writeln;
  if fp
    then
      begin
        write('Half-product of positive elements of array is: ');
        if odd(p) then writeln(p div 2, '.5') else writeln(p div 2)
      end
    else writeln('No positive elements of array.');
  readln
end.