Program to translate from one alphabet to another.

	program transl;
	var
		alphafrom, alphato, char, outchar: string;
		where: integer;
	begin
	writeln('Enter source alphabet');
	readln(alphafrom);
	writeln('Enter target alphabet');
	readln(alphato);
	
	while true do
        	begin
		writeln('Enter character');
		readln(char);
		where := pos(char,alphafrom);
		outchar := copy(alphato, where, 1);
		writeln(outchar);
		end;
	readln;
	end.

Sample ouotput:
<translate2
>Enter source alphabet
<abcdefghijklmnopqrstuvwxyz
>Enter target alphabet
<luckystrieabdfghjmnopqvwxz
>Enter character
<d
>e
<u
>p
<k
>a
<e
>y
<^C