Ошибка при компиляции в PascalABC

[artems67]

Здравствуйте,

Задача: Ввести массив A(n). Если массив не содержит отрицательных элементов, то удвоить последний максимальный элемент массива, иначе - заменить четные элементы на -99.

Код программы:

   Program Pr_14_3;
  uses crt;
  var A:array [1..100] of integer;
      i,max,N,k,imax:integer;
  Begin
  {Размерность массива}
    Write('N= ');
      readln(N);
    writeln;  
  {Заполнение массива}
    For i:=1 to N do
      begin
       Write('A[',i,']= ');
        readln(A[i]);
      end;
    writeln;  
  {Обработка массива}
    For i:=1 to N do if A[i]<0 then k:=1;
  {Не содержит отриц. элементов}
    If k=0 then
      begin 
        max:=A[1]; 
          for i:=1 to N do if A[i]=>max then 
            begin
              max:=A[i];
              imax:=i;
            end;  
         writeln('A[',imax,']= ',max*2:4); 
      end;
   {Содержит отриц элементы}   
     If k=1 then
      begin
        for i:=1 to N do
          begin
            if i mod 2 = 0 then 
            begin
              A[i]:=-99;
              writeln('A[',i,']= ',A[i]:4);
            end;
          end;
       end;        
 End.

Ошибка компилятора:

Undefined FileName(0) : Нельзя преобразовать тип KeyValuePair<integer,integer> к boolean

Первый раз прогнал прогу через компилятор, ошибку не выдало. Поменял знак в

 For i:=1 to N do if A[i]<0 then k:=1;

Стояло <> , но тогда не работало если в массиве везде 0. Запустил второй раз, выдало ошибку выше. Не могу понять что в коде не так.

[artems67]

Ошибку устранил. Перенёс код в PascalTURBO, заработало корректно.