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

var s1,s2: string;

begin

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

readln(s1);

readln(s2);

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

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

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

end.