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

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