Fehler bei while-Schleife

[RWarnecke]

So sollte es gehen :

Delphi-Quellcode:

while (((z1[1] = z2[1]) or(z1[1] = z2[2])) and ((z1[2] = z2[1]) or(z1[2] = z2[2]))) or (z2[1] = z2[2]) or ((z2[1] = 0) or (z2[2] = 0)) or ((z2[1] = 0) and (z2[2] = 0)) do
begin
  //Anweisungen
end;