Lazarus program help

[asim1999]

I am trying to write a program which encrypts  text by adding a number to each ascii value after it has been converted from string to an ASCII using a for loop and adding it to an array. after that i need the text to be encrypted (which i know is by adding a number to each value in the array using a for loop), and then converted back to characters and then back to a string. I have got so far in the encryption code):. how do i correct/finish the program to do this?

var

        s: string;

        asciivals: array [1..255] of byte;

        i: integer;

begin;

        write('Enter a string: '); readln(s);

        for i:=1 to length(s) do

                asciivals:=ord(s);

{ s accesses each element of the string as a char.

        ord returns the ASCII value of the char. }

        writeln('ASCII vals: ');

        for i:=1 to length(s) do

                writeln(asciivals);

        end.

end                    

[asim1999]

any help will be appreciated 

[madknight3]

First thing you need to do is add the encryption. You can either add it in when you store the ascii numbers in the array. Or you can add it as they are being used from the array. Then use the resulting values to build the string with the chr() function.

[asim1999]

i cant retrive their vaqlue from an array to check if they are between A to Z in the ascii numbers, how do i do this?

[madknight3]

i cant retrive their vaqlue from an array to check if they are between A to Z in the ascii numbers, how do i do this?

 

You're retrieving their values here

for i:=1 to length(s) do    writeln(asciivals[i]);

so instead of writing it to console, do the check and handle things appropriately.