В программе Pascal можно создать антоним слова с помощью словаря, где ключом будет исходное слово, а значением - его антоним.
Например:

program Antonyms;
var
words: array [1..5] of string = ('good', 'bad', 'hot', 'cold', 'happy');
antonyms: array [1..5] of string = ('bad', 'good', 'cold', 'hot', 'sad');
userInput: string;
i: integer;
begin
write('Enter a word: ');
readln(userInput);
for i := 1 to 5 do
begin
if userInput = words[i] then
begin
writeln('Antonym: ', antonyms[i]);
exit;
end;
end;
writeln('Antonym not found');
end.

В этой программе заданы массивы слов words и их антонимов antonyms. Пользователю предлагается ввести слово, и программа ищет его в массиве words, затем выводит соответствующий антоним из массива antonyms. Если антоним не найден, программа выводит сообщение "Antonym not found".