Need help with getting all combinations of a string

program Uppg3;
{$APPTYPE CONSOLE}
uses Crt32;

var numl, temp, combin, num : integer;
var Combinations : array[0..100000] of string;
var current, original : string;

function CombinationExists : integer;
begin
 temp := -1;

 While(temp < combin) Do
 begin
  temp := temp + 1;

  if(Combinations[temp] = current) then
  begin
   CombinationExists := 1;
   temp := combin;
  end
  else
  begin
   CombinationExists := 2;
  end;
 end;
end;

begin
 temp := -1;

 While(temp < 100000) Do
 begin
  temp := temp + 1;

  Combinations[temp] := '';
 end;

 temp := -1;

 Write('Please enter original string here: ');
 ReadLn(original);

 numl := Length(original);
 combin := numl * numl;

 While(num < combin) Do
 begin

  While(temp < numl) Do
  begin
   temp := temp + 1;

   current[temp] := original[Random(numl)];
  end;

  if(CombinationExists = 0) then
  begin
   num := num + 1;
   Combinations[num] := current;
   WriteLn(Combinations[num]);
  end;

  temp := -1;
 end;

 ReadLn;
end.

program Uppg3;
{$APPTYPE CONSOLE}
uses Crt32, Dialogs;

var matrix : array[0..1000000] of string;
var init : string;
var temp : string[255];
var max, numl, numc, num, nums, tempn : integer;

begin
 numc := -1;
 num := -1;
 tempn := 0;

 Write('Please enter original string here: ');
 ReadLn(init);

 numl := Length(init);

 max := numl * numl;

 ClrScr;

 While(num < max) Do
 begin
  numc := numc + 1;
  num := num + 1;

  While(tempn < numl) Do
  begin
   tempn := tempn + 1;

   if(tempn <> numl) then
   begin

    if(tempn = numc) then
    begin
     temp[tempn] := init[tempn];
    end
    else if(tempn = numc + 1) then
    begin
     temp[tempn] := init[tempn - 2];
    end
    else
    begin
     temp[tempn] := init[tempn - 1];
    end;

   end
   else
   begin
    temp[0] := init[numl];
    temp[numl] := init[1];
   end;

  end;

  matrix[num] := temp;
  tempn := -1;
 end;

 num := -1;

 While(num < max) Do
 begin
  num := num + 1;

  WriteLn(matrix[num]);
 end;

 ReadLn;
end.