написать программу  выводящую на экран слова к которым необходимо подобрать слова

не написано откуда растягивать синонимы и антонимы (из файла иль через инет тянуть). Да и вообщем условие неясно

Program antonim;
var s1,s2:string; 
begin
s1:='жаркий';Наше слово
write ('Введите антоним (с махонькой буковкы) к слову ',s1,': ');
readln (s2);Ввод антонима
if (s2lt;gt;'прохладный') or (s2lt;gt;'холодный') then writeln ('Таких слов нету.'); Проверка условия
end.