Eric-Bro

var source, result: string;
    i, k, first, last, tmp: integer;
begin
readln(source);
readln(k);
first:= ORD('A');
last:= ORD('Z');
result:= source;
for i:=1 to length(source) do
  begin