ich wollte in Pascal 5.5 einen Text einlesen oder mehr die Buchstaben dieses Textes, um sie dann zu "verschlüsseln" (ganz billig mit sowas wie: a=> d,...).
Mein Problem:
Ich weiß nicht, wie man die Buchstaben des Textes einzeln in eine Variable einlesen kann.
Im Moment springt das Program nach jedem Buchstaben in die nächste Zeile (logisch weil ich readln verwende) und ich muss nach jedem Buchstaben ein Return eingeben (nervt).
Wenn ich es mit 'read' versuche liest er nur einen Buchstaben ein und das Program beendet sich.
Kennt jemand einen anderen Befehl oder weiß ich das Problem umgehen kann?
Kurze Anmerkung:
wenn man '#' wird die "ver/entschlüsselung" gestoppt.
program verschlüsseln; uses crt; var x:string; y:string; s:integer; begin clrscr; y:=''; x:=' '; s:=1; writeln ('verschlüsseln'); While s = 1 do begin readln (x); if x = '' then begin x := ' '; end else if x = '#' then begin s := 2; x := ' '; end else if x = 'a' then begin x:='n'; end ... else if x='z' then begin x:='m'; end; y:=y+x; end; writeln(y); readln; end.
Ich kann auch den ganzen Quelltext posten falls nötig.