Also das untere wird bei mir ohne Problem compiliert.
Delphi-Quellcode:
procedure entschluesseln(klarText:
String;codetext:
String);
var
i : Integer;
acode : int64;
// auf int64 geändert
begin
// Klartext zu ASCII
for i := 1
to length (klartext)
do
begin
// 1 ASCII- Code der i-ten Buchstaben ermitteln
acode := ord(codetext[i]);
// 2 Durch formel ( M = C^d mod N ) verschlüsseln
acode := (acode - round(exp(23*ln(146)))
mod 187);
// 3 Das Zweichen mit dem ASCII- Code acode an der i-ten Stelle im chiffre ablegen
klartext[i] := chr(acode);
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
entschluesseln(edit1.Text,edit2.Text);
end;
Deine Fehler müssen woanders stecken.
Grüße
Klaus