При вводе текста 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.