Определить какие элементы последовательности равны сумме цифр наибольшего четного элемента

uses wincrt;
var
  x : array[1..100] of integer;
  i,n : byte;
  min,max : integer;
  k,g : boolean;
begin
  write('razmer : '); readln(n);
  writeln('vvedite matricu : ');
  for i:=1 to  n do
   read(x[i]);
 
  max := -32000;
  min := +32000;
  for i:=1  to n do
     begin
        if (max < x[i])and
           (x[i] mod 2 = 0)
           then
             begin
                k := true;
                max := x[i];
             end;
 
       if (min  > x[i]) and
          (x[i] mod 2 <> 0)
          then
             begin
                g := true;
                min := x[i];
             end;
    end;
 
 if k = false
    then
       writeln('maximalnogo chetnogo elementa net.')
    else
      if g = false
         then
            writeln('minimalnogo nechetnogo elementa net.')
         else
            begin
               writeln('summa min i max : ',max+min);
               writeln('nomera elementov ravnih summe max i min :');
               for i:=1 to n do
                  if x[i] = max + min
                     then
                        write(i,' ');
            end;
end.