Дан массив Х из m элементов.Вычислить y=x1-x2+x3-x4… — Pascal(Паскаль)

const
 m=10;
var
 t,i,s:integer;
 x:array[1..m] of integer;
begin
 for i:=1 to m do
  begin
   x[i]:=random(20);
   write(' ',x[i]); 
  end; 
 writeln();
 t:=-1;
 for i:=1 to m do
  begin
   t:=t*(-1);
   s:=s+x[i]*t;
  end;
 writeln(s);
end.