Помогите! Почему выдает ошибку 41? Паскаль

Вот код программы
uses crt;
var b,c,d,e:char;
var a:integer;
begin
clrscr;
randomize;
a:=random(25);
if a=0 then (e:='быть')and(b:='be')and(c;='was')and(d:='been');