#pas
function THIZaprosi.TestRep(P:integer):boolean;
begin
//  Result := false;
  Result :=  not (FStr[P+length(substr)] in ['0'..'9']);
end;
var Clean, s:String; // а это    ????????????
var i:integer;       // для кого ????????????
procedure THIZaprosi._work_doInsert;