var s1,s2:string;
begin
Write('Введите строки из произведения:');
readln(s1);
Write('Введите автора строки:');
readln(s2);
Write('Все ясно, делаешь вид что шаришь за', s2);
end.
Попробуй так.