Дана строка написать программу определяющую совпадают ли первый и последний симв

Var    s:string; begin    readln(s);    if s[1]=s[length(s)] then write("Yes");    else write("No"); end.