Паскаль, найдите ошибки

program antonym;
var a, b, c, d, e, y: string;
begin
a:='чёрный';
b:='высокий';
c:='свет';
d:='радость';
e:='умный';
writeln ('Введите слово>>');
if a then y:='белый' else read (b);
if b then y:='низкий' else read (c);
if c then y:='тьма' else read (d);
if d then y:='грусть' else write (e);
if e then y:='глупый';
writeln (y)
end.

program antonym;
var a, b, c, d, e, y: string;
begin
a:='чёрный';
b:='высокий';
c:='свет';
d:='радость';
e:='умный';
writeln ('Введите слово>>');
readln(y);
if y=a then write('белый')
else if y=b then writeln('низкий')
else if y=c then writeln('тьма')
else if y=d then writeln('грусть')
else if y=e then writeln('глупый')
else writeln('такого антонима в словаре нет')
end.

## var слово := ReadString('Введите слово >>');
case слово of
  'чёрный':'белый'.Println;
  'высокий':'низкий'.Println;
  'свет':'тьма'.Println;
  'радость':'грусть'.Println;
  'умный':'глупый'.Println;
else
  'такого антонима в словаре нет'.Println;
end;

## var словарь := |'чёрный-белый', 'высокий-низкий', 'свет-тьма', 'радость-грусть', 'умный-глупый'|;
var слово := ReadString('Введите слово >>');
var res := словарь.Select(s->begin
  var m:=s.ToWords('-');
  var i:=m.IndexOf(слово);
  Result := i<0 ? '' : m[(i+1)and 1];
end).Where(x->x.Length>0);
if res.Any then
  res.Println
else
  'такого антонима в словаре нет'.Println;

## var словарь := |'чёрный-белый', 'высокий-низкий', 'свет-тьма', 'радость-грусть', 'умный-глупый'|
  .Select(kvp->kvp.Split('-'))
  .SelectMany(\(val1,val2)->|
    (val1,val2),
    (val2,val1)
  |)
  .ToDictionary(
    \(key,value)->key,
    \(key,value)->value
  );
var res := словарь.Get(ReadString('Введите слово >>'));
if res=nil then
  'такого антонима в словаре нет'.Println else
  res.Println;