Cái dòng ok:=true bạn phải để trong vòng for i:=2 to x-1