Вывести символы латинского алфавита с увеличением на 1 символ: ( паскаль абс) z z y z y x z y x b a

Var C,A:char;
Begin
For A:= 'Z' downto 'A' do
    Begin
    For C:= 'Z' downto A do
        Write(C,' ');
    WriteLn;
    End;
End.