求一段 pascal 的代码

var a,s,d,f:integer;
begin
a:=1; s:=2;
while a=10 do
a:=a+1; a:=a*s;
end;
d:=3*a;
if d>30 then
begin
for f:=1 to d do write('*');
end;

function FindByClass(AClass: TDataClass; Fields: string; FieldValue: variant;
MaxRec: integer=-1): TDataPack;
var
Sql: string;
Arr: TStrArr;
Params: variant;
i: integer;
Criteria: string;
begin
Arr := Split(Fields, ';');
if (Length(arr)=1) and (not VarIsArray(FieldValue)) then
FieldValue := VarArrayOf([FieldValue]);
if length(Arr)>0 then
Params := VarArrayCreate([0, length(Arr)-1], varVariant);
for i:=0 to length(arr)-1 do
begin
Criteria := Criteria + ' and ' + Arr[i] + '=:' + Arr[i];
Params[i] := ParamToVariant(AClass.GetParamByName(Arr[i], FieldValue[i]));
end;
delete(Criteria,1,4);
Sql := AClass.BuildSql +