program Caesar;
	var
		str1: string;
		i, j, k, len: integer;

begin
	write(' ENTER THE STRING TO BE CAESARED ("-1" TO QUIT): ');
	readln(str1);
	if str1 = '-1' then
		halt;
	len := length(str1);		{ get length }
	str1 := upCase(str1);		{ convert to upper case }
	for i := 0 to 25 do			{ i is caesar shift }
		begin
			write(i:3,'  ');
			for j := 1 to len do
				begin
					k := ord(str1[j]) + i;		{ number range 65 to 90 + shift i}
					if k > 90 then
						k := k - 26;
					write(chr(k));
				end;	{ of j loop }
			writeln;
		end;	{ of i loop }
	write(' Press <RETURN>');
	readln;
end.