ммм сам написал незнаю правильно или нет
может кому пригодится
PROGRAM function_delete;
VAR
Words: STRING[79];
Word1: STRING[20];
BEGIN
WriteLn;
Words := 'нАСТЕНЬКА';
WriteLn(Words);
Delete(Words,1,3);
WriteLn(Words);
Delete(Words,3,2);
WriteLn(Words);
END.