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);
	
	{leave space}
	
	writeln('Enter character');
	readln(char);
	where := pos(char,alphafrom);
	outchar := copy(alphato, where, 1);
	writeln(outchar);
	
	{leave space}
	
	readln;
	end.

is not complete...