Удаление символа в строке

[Fantom]

Есть строка A. Тип string.
n:=length(A)-определение длины строки. Следовательно A[n]-последний символ. Как его удалить? Какая команда?

[_Dmitry]

 delete(A,n,1);

http://www.delphibasics.ru/Delete.php

[Alter]

можно ещё так:

var A :string; n :integer;
begin
...................................
n:=length(A);
A:=copy(A, 1, n-1);
end.