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

 

Pascal ABC:

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