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;
t:=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;
v:= 1;
w:= 1;
w_tau:= 1;
w_n:= 5;
ro:= 3;
with Form1.stringgrid1 do
Begin
cells [0,tau]:=Floattostr (tau);
cells [1,tau]:=Floattostr (x,ffFixed,0,2);
cells [2,tau]:=Floattostr (x,ffFixed,0,2);
cells [3,tau]:=Floattostr (v_x,ffFixed,0,2);
cells [4,tau]:=Floattostr (v_y,ffFixed,0,2);
cells [5,tau]:=Floattostr (w_x,ffFixed,0,2);
cells [6,tau]:=Floattostr (w_y,ffFixed,0,2);
cells [7,tau]:=Floattostr (v,ffFixed,0,2);
cells [8,tau]:=Floattostr (w,ffFixed,0,2);
cells [9,tau]:=Floattostr (w_tau,ffFixed,0,2);
cells [10,tau]:=Floattostr (w_n,ffFixed,0,2);
cells [11,tau]:=Floattostr (ro,ffFixed,0,2);
end;