gerador_cpf_pascal_delphi.pas

function gerarCPF: string;
//http://www.geradorcpf.com/algoritmo_do_cpf.htm
var
  cpf: string;
  i: integer;

  procedure Digito(Var cpf: string);
  var
    d: integer;
    i: integer;
  begin
    d := 0;
    //length(cpf) + 1:
    for i := length(cpf) + 1 downto 2 do
      d := d+ (StrToInt(cpf[length(cpf) + 2 - i]) * i);

    d := 11 - (d mod 11);
    d := ifThen(d > 9, 0, d);
    cpf := cpf + intToStr(d);
  end;
begin
  cpf := '';

  Randomize;
  for i := 1 to 9 do
    cpf := cpf + IntToStr(Random(9));

  Digito(cpf);//digito 1
  Digito(cpf);//digito 2

  result := cpf;
end;