Дана последовательность натуральных чисел A[j]. Найти сумму чисел, не делящихся на 2 и 11, наибольшее из таких чисел и номер этого числа в последовательности — Pascal(Паскаль)

program PascalGuru;

uses crt;

var
  A: array [1 .. 100] of integer;
  i, j, summa, n, k, code, max, maxi: integer;
  s: string;
  f: text;

  { -------------------------------------------- }
begin
  assign(f, 'f.txt');
  reset(f);

  summa := 0;
  i := 0;
  j := 0;
  while not eof(f) do
  begin
    inc(i);
    readln(f, s);
    { writeln(s); }
    val(s, k, code);
    if (k mod 2 <> 0) and (k mod 11 <> 0) then
    begin
      inc(j);
      if j = 1 then
      begin
        max := k;
        maxi := i;
      end
      else if k > max then
      begin
        max := k;
        maxi := i;
      end;
      summa := summa + k;
    end;

  end;

  writeln('Summa: ', summa);
  writeln('MAX: ', max);
  writeln('MAX[i]-"nomer": ', maxi);

  close(f);
  readln;

end.