Помогите решить проблему в задаче пожалуйсто.Program13.pas(21) : Параметр цикла for в PascalABC.NET должен описываться в заголовке цикла type s_b=record
s_d:array[1..31,0..9]of integer;
s_o:array [0..9] of string;
d_m:array [1..31] of byte;
end;
var r,d: s_b;
a,b:integer;
begin
with r do
begin
s_o[0]:='еда';
s_o[1]:='zilie';
s_o[2]:='oby4';
end;
with d do
begin
s_o[1]:='myz';
s_o[2]:='zina';
end;
for a:=1 to 31 do
for b:=0 to 9 do
begin with r do
begin
s_d[a,b]:=0;
d_m[a]:=a;
end;
with d do begin s_d[a,b]:=0;
d_m[a]:=a;
end;end;
begin
end;
end.
s_d:array[1..31,0..9]of integer;
s_o:array [0..9] of string;
d_m:array [1..31] of byte;
end;
var r,d: s_b;
a,b:integer;
begin
with r do
begin
s_o[0]:='еда';
s_o[1]:='zilie';
s_o[2]:='oby4';
end;
with d do
begin
s_o[1]:='myz';
s_o[2]:='zina';
end;
for a:=1 to 31 do
for b:=0 to 9 do
begin with r do
begin
s_d[a,b]:=0;
d_m[a]:=a;
end;
with d do begin s_d[a,b]:=0;
d_m[a]:=a;
end;end;
begin
end;
end.