[Mp3]

а значение здесь писать??просто тоже в ошибку шлет

Код:

procedure A1;
Var  n,tau, x, y, v_x, v_y,w_x,W_y,v,w,w_tau,w_n,ro:integer;
 Begin
 n:=10;
 StringGrid1.RowCount:=n+1;
 for tau:=1  to n do 
 x:= 1; //значение
 y:= 1;
 v_x:= 1;
 v_y:= 1;
 w_x:= 1;
 W_y:= 1;