удаление 4 последних символов в строке

[DuM4uK]

Здравствуйте уважаемые форумчане.

Мне необходимо удалить 4 последних символа в строке.

Например:

"Программист" - 4 символа результат "Програм"

str:string;

for i:=1 to lenght(str) do
Begin

end;

Вобщем помогите пжлст.

[BARNEY]

for i:=1 to lenght(str)-4 do
Begin

end;

так типо ?

[SERG1980]

var s:string;
s:='Программист';
Delete('s',Length('s')-4,4)

[DuM4uK]

Спасибо за помощь. Все понял.