Составьте программу позволяющую определить ли первая буква слова х и последняя буква слова у.(pascal abc.net)

var
  x, y: string;
begin
  write('Введите слово X: ');
  readln(x);
  write('Введите слово Y: ');
  readln(y);
  if x[1] = y[length(y)] then writeln('Буквы совпадают.')
  else writeln('Буквы не совпадают.')
end.