при вводе текста Hello , World, удаляет 7 символов начиная с запетой и выводит Hello

 

Pascal ABC:var texts, get: String;i: Integer;begintexts:='Hello , World';for i:=1 to 7 dobeginget:= get + texts[i];end;WriteLn(get);end.