הרבה זמן לא תכנתתי ב -Pascal אז אולי התחביר לא כ"כ נכון, אבל הרעיון של הפרוצדורה נכון.

procedure DeleteString(var S:StrRecordType;Index,Count:integer);

var I:integer;

begin

if Index+Count>S.Len then

writeln('too long')

else

begin

for I:=0 to S.Len-(Index+Count) do

begin

if I+Count == S.Len then

break; //stop the loop

else

S.Str = S.Str[i+Count];

end;

S.Len:=S.Len - Count;

end;

end;

אין BREAK בפסקל

טוב תודה חברה. UNSIGNED INTEGER, השתמשתי הרעיון שלך עם השרשור, תודה, עובד הכל(חוץ מבאג קטן פה ושם, אבל אני אסתדר, מקסימום, אשאל פה)