что делать если выдает ошибку встречно 'else' , а ожидался оператор
в паскаль

program p1;
var t,s:string;
begin
readln(t);
readln(s);
if (t[1]=s[length(s)])or(s[1]=t[length(t)])
then
begin
if(t[1]=s[length(s)])
then writeln(t[1])
else writeln(s[1])
end;
else writeln('неверно');
end.