[phomm]

Код:

function KillTrailingDigits(S: string): string;
var
  i, idx: Integer;
begin
  idx := 0;
  for i := Length(s) downto 1 do
    if s[i] in ['0'..'9'] then
      Inc(idx)
    else
      Break;
  Result := Copy(s, 1, Length(s) - idx));
end;