k:=N-2 ;   // неработоспособный цикл (в отличии от следующих "пофиксанных"        for i:= 0  to N-2 do                      
        begin 
        k:=k-i;            
        x[k+1]:=x[k]; // x[N]:=x[N-1];...x[1]:=x[0] (d i+1 ÿ÷åéêå çàäåðæ íà 1 êëîê)       
        y[i+1]:=y[i]; //            
        end  ;