Incompatible types

[manchester_alan]

Вообще непонятно с чего...

while i<=y do

пишет на эту строку incompatible types string and integer

i и y - integer!

[tsar_]

Давай подробно: полный кусок кода, чо этот код должен делать, среда программирования.
А то смотрится действительно как рождественское чудо...

[manchester_alan]

ip:=0;//
i:=1;
mx:=0;//
while i<=y do
if (a[i] mod 2=0)and((i=1)or(a[i-1]mod 2<>0)) then
                                        
 begin
  j:=i; 
  k:=0;
  while(j<=y) and(a[j] mod 2=0) do
   begin
    k:=k+1;
    j:=j+1;
   end;
  if k>mx then 
   begin
    mx:=k;
    ip:=i;
   end;
  i:=i+k;
 end
else i:=i+1;
if ip=0 then write
else
 begin
  writeln;
  for i:=ip to ip+mx-1 do 
  write(a[i],' ');
  writeln;
  for i:=1 to mx do 
   begin
    for j:=ip to n-1 do
    a[j]:=a[j+1];
    y:=y-1;
   end;
  writeln;
  for i:=1 to y do
  write(a[i],' ');
 end;

[manchester_alan]

да просто сама ошибка мешает, уже переносил заново в новый проект и все равно

делфи

[tsar_]

Весь проект скинуть смогёшь?
У себя попробую.

[manchester_alan]

все я понял, спасибо))