Строка в делфи

[Ken_Watanabe]

дана строка определить одинаковы ли последние 2 символы

[Stilet]

if copy(s,Length(s),1)=copy(s,Length(s)-1,1) then write('Да') else write('Нет');

Идея ясна?

[min@y™]

var
  L: Integer;
begin
  L:= Length(S);
  if (L > 1) and (S[L - 1] = S[L])
    then write('Да') 
    else write('Нет');
end;

[Ken_Watanabe]

Сообщение от Stilet

if copy(s,Length(s),1)=copy(s,Length(s)-1,1) then write('Да') else write('Нет');

Идея ясна?

ага, спасибо!