pascal 语言while 循环语句

var i,ans:longint;
find:boolean;
begin
i:=0;find:=false;
while not find do
begin
i：=i+1;
if (i mod 2=1)and(i mod 3=2)and(i mod 5=4)and(i mod 6=5)and(i mod 7=0) then
begin
find:=true;
ans:=i;
end;
end;
end.