Помогите, пожалуйста написать эту программу для Pascal

Блок поиска может выглядеть так:..................x0:=1;xn:=10;h:=2;xmax:=x0;xmin:=x0;i:=1;x:=x0;while x<=xn do   begin      x:=x+h;      if x<xmin then MIN:=x;      if x>xmax then MAX:=x;   end;   Writeln (MIN);   WriteLn (MAX);...................................