X = Convert.ToInt32(textBox1.Text) * 1500;
y = Convert.ToInt32(textBox1.Text) * 1500;
z = Convert.ToInt32(textBox3.Text) * 1500;
c = Convert.ToInt32(textBox4.Text) * 1500;
d = Convert.ToInt32(textBox5.Text) * 500;
i = Convert.ToInt32(textBox6.Text) * 1000;
k = Convert.ToInt32(textBox7.Text) * 600;
q = x + y + z + c + d + k + i + 600;
Ошибка
An unhandled exception of type 'System.FormatException' occurred in mscorlib.dll

Additional information: Входная строка имела неверный формат решить мне проект сегодня сдавать надо

А вот и ошибочка!  Вот алгоритм в исправленном виде!

var  M, tons, kilos, grams: integer;begin  write('Введите массу: ');  read(M);  // чтобы найти кол-во тонн, разделим нацело введенную массу  // на 1000000  tons := M div 1000000;  // div - деление нацело  // чтобы найти кол-во килограмм, сначала возьмем остаток   // деления на 100000, затем полученное число разделим   // нацело на 1000.  kilos := (M mod 100000) div 1000;  // mod - остаток от деления  // граммы - последние 3 цифры введенного числа  grams := M mod 1000;  writeln(tons, ' т. ', kilos, ' кг ', grams, ' г.');end.

Var
  M, tons, kilos, grams: integer;
begin
  write('Введите массу: ');
  read(M);
  // чтобы найти кол-во тонн, разделим нацело введенную массу
  // на 1000000
  tons := M div 1000000;  // div - деление нацело
  // чтобы найти кол-во килограмм, сначала возьмем остаток 
  // деления на 100000, затем полученное число разделим
  // нацело на 1000.
  kilos := (M mod 100000) div 1000;  // mod - остаток от деления
  // граммы - последние 3 цифры введенного числа
  grams := M mod 1000;
  writeln(tons, ' т. ', kilos, ' кг ', grams, ' г.');
end.