1:
2:
3:
4:
5:
6:
7:
8:

procedure verschluessel (text:string);
var l,i:integer;
begin
l:=length(text);
for i:=1 to l do
 if text[i]=text[i+1] then text[i+1]:='X';
 text[i]:=text[i];
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

function verschluessel (text:string):string;
var i,l: integer;
  text2:string;
begin
l:=length(text);
if (l mod 2) <> 0 then text2[l]:='X';
for i:=1 to l do
 begin
  if text[i]=text[i+1] then text2[i+1]:='X' else
  text2[i]:=text[i];
 end;
result:=text2;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

function verschluessel (text:string):string;  
var i,l: integer;
  text2:string;
begin
l:=length(text);
text2:=text;                                   //text2 einen Wert zuteilen
if (l mod 2) <> 0 then text2:=text2+'X';       //Bei ungerade ein X anhängen
for i:=1 to l-1 do                             // bis zum vorletzten Element, da ich i+1 auslese
 begin
  if text2[i]=text2[i+1] then insert('X',text2,i+1) //Insert fügt das x an richtiger Stelle ein 
 end;
result:=text2;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

function verschluessel (text:string):string;  
var i,l: integer;
begin
l:=length(text);
if (l mod 2) <> 0 then text:=text+'X';
for i:=1 to l-1 do
 begin
  if text[i]=text[i+1] then insert('X',text,i+1)
 end;
result:=text;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

function verschluessel(text:string):string;    
var
  i : integer;
begin
i:=1;                       //i auf erstes Zeichen.
while i < length(text) do   //Solange i das Ende von text ..
                            //.. nicht erreicht hat, ..
   begin                       //.. schauen, ob der nächste Buchstabe ..
   if text[i]=text[i+1] then   //.. identisch ist.
      begin                       //Wenn ja, 'X' einfügen und i ..
      insert('X',text,i+1);       //.. erhöhen, damit das eingefügte X ..
      inc(i);                     //.. nicht auch noch in die Prüfung ..
      end;                        //.. einbezogen wird.
   inc(i);                     //i auf nächstes Zeichen setzen
   end;
if odd(length(text)) then   //Wenn text-Länge ungerade, 'X' anhängen.
   text:=text+'X';
result:=text;               //Rückgabewert
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

function verschluessel (text:string):string;    
var
  i : integer;
begin
i:=1;                       //i initialisieren.
while i < length(text) do   //Solange i das Ende von text ..
                            //.. nicht erreicht hat, ..
   begin                       //.. schauen ob der nächste Buchstabe ..
   if text[i]=text[i+1] then   //.. identisch ist.
      begin                       //Wenn ja, 'X' einfügen und i ..
      insert('X',text,i+1);       //.. erhöhen, damit das eingefügte X ..
      inc(i);                     //.. nicht auch in die Prüfung ..
      end;                        //.. einbezogen wird.
   inc(i,2);                     //i erhöhen --> auf nächste Zweiergruppe setzen
   end;
if odd(length(text)) then   //Wenn text-Länge ungerade, 'X' anhängen.
   text:=text+'X';
result:=text;               //Rückgabewert
end;