Запросите и введите с клавиатуры имя пользователя, имя его друга(подруги) и суть отношений между ними(дружба, любовь). напечатайте на экране: += на паскале

Program Question;
 var
nameF, nameS, rels :string;
Begin
 Write('Введите  первое имя: ');
 Readln(nameF);
 Write('Введите  второе имя: ');
 Readln(nameS);
Write('Введите  отношения: ');
 Readln(rels);
Writeln(nameF, '+', nameS, '=', rels);
End