[dr. F.I.N.]

Блоки выделять надо "скобками" begin-end

Сообщение от 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
 begin
 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;
end;