Ответ:

begin

 for var x := 0 to 1 do

   for var y := 0 to 1 do

     for var w := 0 to 1 do

       for var z := 0 to 1 do

         writeln(w, '', x, '', y, '', z);

end.

Объяснение:

Указание переменных для циклов в заголовочном var является устаревшим методом.