Определение номера краски — Pascal(Паскаль)

uses crt;

var
  color: string;
  a: integer;

begin;
  clrscr;
  writeln('Введите цвет (маленькие буквы)');
  readln(color);
  a := 1;
  IF color = 'красный' THEN
  begin
    writeln('1');
    a := 0;
  end;
  IF color = 'зеленый' THEN
  begin
    writeln('2');
    a := 0;
  end;
  IF color = 'желтый' THEN
  begin
    writeln('3');
    a := 0;
  end;
  IF color = 'черный' THEN
  begin
    writeln('4');
    a := 0;
  end;
  IF color = 'белый' THEN
  begin
    writeln('5');
    a := 0;
  end;
  IF color = 'синий' THEN
  begin
    writeln('6');
    a := 0;
  end;
  IF color = 'коричневый' THEN
  begin
    writeln('7');
    a := 0;
  end;
  if a = 1 then
    writeln('такой краски нет');

end.