Написать программу, которая по номеру месяца выдает название следующего за ним месяца (при m = 1 получаем февраль, 4 — май и т.д.) — Pascal(Паскаль)

program zada4i;
var m:integer;
begin
    write ('m= '); readln(m);
    case m of
        1: writeln ('FEVRAl');
        2: writeln ('MART');
        3: writeln ('aprel');
        4: writeln ('mai');
        5: writeln ('Iun');
        6: writeln ('Iul');
        7: writeln ('AVGUST');
        8: writeln ('SENT9Br');
        9: writeln ('okt9br');
        10: writeln ('no9br');
        11: writeln ('dekabr');
        12: writeln ('9nvar');
        else writeln ('NET takogo');
    end;
    readln;
end.