I don't know the encryption algorithm to use but, this is my work so far...
Program Youmi;
uses crt;
var
message: string[255];
asciival:array[1..255] of byte;
i: integer;
Procedure Getdecimi
begin
writeln('Enter you message');readln(message);
For i:= 1 to length (message) do...