Проверьте, является ли заданное слово названием времени года на русском языке — Pascal(Паскаль)

VAR
   st: string;
   i: byte;
BEGIN
   Write('введите слово: ');
   ReadLn(st);
   For i:=1 to Length(st) do //для учета строчных/прописных букв
      st[i]:=Upcase(st[i]);
   If (st='ЗИМА') or (st='ВЕСНА') or (st='ЛЕТО') or (st='ОСЕНЬ') then
      WriteLn('является')
   Else WriteLn('не является');
   ReadLn
END.