Pascal ABC/ C клавиатуры вводят два слова. Составить программу, которая проверяет, не начинается ли второе слово с той же буквы, которой оканчивается первое слово

спасибо большое за решение. Может еще с программой поможешь подобного духа?

https://znanija.com/task/30943074

Если Вам не сложно...Помогите мне тоже, пожалуйста.... Я Вас оочень прошу...( https://znanija.com/task/30950478

Помогите, пожалуйста https://znanija.com/task/30951520

var s1,s2: string;

begin

writeln('Введите 2 слова:');

readln(s1);

readln(s2);

if s1[length(s1)]=s2[1]

then writeln('второе слово начинается с той же буквы, которой оканчивается первое слово')

else writeln('последняя буква первого слова отличается от первой буквы второго слова');

end.