Code:
program Geheimsprache2;
{$APPTYPE CONSOLE}
uses
SysUtils;
var Satz, Satz2: String; x,i: Integer;
begin
Writeln('Gib einen Satz ein');
Readln(Satz);
for i :=1 to length(satz) do
begin
x := ord(Satz[i]);
x := x+1;
Satz2 := satz2 + chr(x);
end;
Writeln(Satz2:1);
Readln;
end.
Soweit so gut. Nur noch mit der Leerstelle und mit dem Z habert es noch, da für Leerstelle eine Ausrufezeichen kommt und für Z kein A
Was muss ich in meiner Konstruktion verändern