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

Uses
  crt;

const
  a: array [1 .. 4] of string = ('зима', 'весна', 'осень', 'лето');

var
  i: integer;
  s: string;
  t: boolean;

begin
  clrscr;
  writeln('s: ');
  readln(s);
  t := false;
  for i := 1 to 4 do
    if a[i] = s then
      t := true;
  if t then
    writeln('Является')
  else
    writeln('Нет');
  readln;

end.