Найти сумму элементов массива, имеющих значение, кратное пяти

Uses Crt;
Type Mas = array [1..14] of integer;      
 Var  G : Mas;              
      i:integer;         
        
Begin
Randomize;
For i:=1 to 14 do begin
      G[i]:=random(42)-21;  
      Write(G[i]:4);                
      End;

uses crt;
const m = 14;
type mas = array [1..m] of integer;
var g: Mas;
    i, imin, imax, sum: integer;
    b: boolean;
begin
  randomize;
  textcolor(lightgray);
  writeln('Исходный массив:');
  for i := 1 to m do
    begin
      g[i]:=random(42)-21;
      write(g[i]:4)
    end;
  writeln;
  imin := 1;
  imax := 1;
  sum := 0;
  b := false;
  for i := 1 to m do
    begin
      if g[i] mod 5 = 0
        then begin
          sum := sum + g[i];
          b := true
        end;
      if g[i] < g[imin]
        then imin := i
        else if g[i] > g[imax]
          then imax := i
    end;
  if b
    then  begin
      writeln('Сумма элементов массива, кратных 5: ', sum);
      if abs(g[imax]) > abs(g[imin])
        then begin
          g[imax] := sum;
          writeln('Максимальный элемент массива (№ ', imax, ') заменён этой суммой');
          if g[imax] < g[imin] then imin := imax
        end
        else writeln('Номер минимального элемента: ', imin)
    end
    else writeln('Элементов массива, кратных 5, не найдено');
    writeln('Результирующий массив, минимальный элемент окрашен в зелёный цвет:');
    for i := 1 to m do
      begin
        if i = imin
          then begin
            textcolor(green);
            if (g[i] > 999) or (g[i] < -99)
              then write(' ', g[i])
              else write(g[i]:4);
            textcolor(lightgray)
          end
          else write(g[i]:4)
      end;
  readln
end.