Что будет выведенно на экран при запуски

var
A:string; i: integer;
Begin i=0;
For i:=0 ti 10 do
begin A[i]:='*'
write (i);
end;
write (i);
end.

var
  A:string; 
  i: integer;
Begin 
 i=0;                 //не имеет смысла
 For i:=0 ti 10 do //ошибка в конструкции for i:=0 tO 10 do. будет 11 раз выведен результат операций в операторных скобках ниже
   begin 
      A[i]:='*'      //тут нет ;. Поочередно каждому символу строки присваиваем *, но никуда ее не выводим
      write (i);     //выводим i, то есть "0,1,2,3,4,5,6,7,8,9,10" без запятых
   end;
 write (i);          //выводим последний результат i еще раз, то есть 10 
end.

var
  A: string[10]; //ограничение количества символов строки особой смысловой нагрузки не несет в данной задаче, ну да ладно
  i: integer;
Begin 
Label1.Caption:='';
For i:=1 to 10 do
  begin 
    A[i]:='*';
    Label1.Caption:=Label1.Caption+IntToStr(i);
  end;
end.

var
  A: string[10];
  i: integer;
Begin 
Label1.Caption:='';
For i:=1 to 10 do
  begin 
    A[i]:='*';
  end;
Label1.Caption:=A;
end.