Люди добрые перевести код из с++ в c#. , !
{
int size = datagridview1-> rowcount - 1;
system: : io: : streamwriter^ fp = system: : io: : file: : createtext("output.txt");
fp-> writeline(size);
for (int i = 0; i < size; i++)
{
system: : string^ temp = gcnew system: : string(my_cmp[i].name.;
fp-> writeline(temp);
fp-> writeline(my_cmp[i].tp);
fp-> writeline(my_cmp[i].sopf);
fp-> writeline(my_cmp[i].count);
fp-> writeline(my_cmp[i].pt);
fp-> writeline(my_cmp[i].fo);
}
fp-> close();
}

Var
  a: integer;  //a - вводимое число
  n, s: integer;  //n- количество введенных чисел, s - сумма этих чисел

begin
  n:= 0;  //обнуляем счетчик
  s:= 0;
  a:= 1;  {присваиваем значение, отличное от нуля, чтобы цикл не завершился, не начавшись}
  while a <> 0 do
  begin
    writeln('Введите целое число');
    readln(a);
    if a <> 0 then  //Чтобы при подсчете среднего арифметического не учитывался 0
    begin
      n:= n + 1;
      s:= s + a;
    end;
  end;
  writeln('Среднее арифметическое введенных чисел:  ', s / n);
end.

Не особо знаю паскаль, так что дабы не накосячить с синтаксисом, покажу на примере. Тут всё просто - тебе лишь нужен цикл For и расчет процентов.

FOR i = 1 TO 100
percents = FIX(x * p / 100) ' здесь у нас есть переменная percents, которой присваиваются округленные функцией fix проценты (насколько я знаю, в паскале аналогичная функция называется Round)
x = x + percents 'тут всё понятно - переменной X присваивается она сама и годовые проценты по вкладу
IF x >= y THEN 'проверяем, не равен или не превысил ли наш вклад ожидаемую сумму
PRINT i 'в цикле For можно не заморачиваться с отслеживанием лет, переменная i сама подсчитает количество итераций-лет
END 'завершаем программу
END IF
NEXT i ' конец цикла
Можно ещё чисто для себя добавить в условие вывод переменной X, чтобы было нагляднее.