Решить задачу в паскале. С клавиатуры вводится слово. Составить программу, которая запрашивает ввести следующее слово, которое начинается с последней буквы предыдущего и осуществляет проверку. Результатом программы является сообщение "Правильно" или "Неправильно"

Var s, t, l, k:string;

begin

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

readln (s) ;

readln (t) ;

s:=lowercase (s) ;

t:=lowercase (t) ;

l:=s[length (s) ];

k:=t[1];

if (l=k) then writeln ('Правильно') else writeln ('Неправильно') ;

end.