Geheimsprache

[braingrenade]

Moin !

Du musst das ganze noch in eine schleife packen die jeden Buchstaben des Satzes durchgeht :

Delphi-Quellcode:

program Project1; 

{$APPTYPE CONSOLE} 

uses 
SysUtils; 

var Satz, Satz2: Char; x,i: Integer; 

begin 
Writeln('Gib einen Satz ein'); 
Readln(Satz); 
for i :=0 to length(satz) do  //Die for-schleife geht alle Buchstaben von satz durch
begin
 x := ord(Satz[i]); 
 x := x+1; 
 Satz2 := satz2 + chr(x); 
end;

Writeln(Satz2:1); 
Readln; 

end.