Помогите отладить процедуру ввода. paskal

[Дивна суміш]

Помогите отладить процедуру ввода. paskal

procedure vvod(var d:bal);
var j:byte;
f:byte;
begin
clrscr;
begin
writeln('vvedite kol predmetov');
readln(d.m);
begin
clrscr;
f:=4;

writeln(' ----------------------------- ');
writeln('| familiya | predmet | ocenka |');
writeln(' ============================ |');

writeln('| | | |');

{writeln('vvedite fio studenta');}
gotoxy(2,f);
readln(d.fio);
for j:=1 to d.m do
{writeln('vvedi predmet');}
gotoxy(13,f);
readln(d.pred[j]);
{writeln('vvedi ocenku');}
gotoxy(25,f);
readln(d.oc[j]);
begin
f:=f+1;
gotoxy(13,f);
end;
end;
end;
end;

не пойму что не так...

Предположим ввожу кол-во предметов 2, процедура один записывает, а во второй все нули....
надо, что б записывало все!

 

[Klez]

в шоке, зачем вам это надо?

 

[Дивна суміш]

надо....

кусок расчетной зачади на курсовой

 

[Das Zugunfall]

Вынос мозга.
Сегодня не засну, а завтра работать не смогу.

 

[zansul]

эт я так понимаю, курсовой из хртт или хпкк?

 

[Klez]

та не, похоже в институте культуры

 

[Therion]

та не, похоже в институте культуры

правда?

девушка автоперекупщик из института культуры кодит на паскале
что-то я в этой жизни пропустил -)

 

[Klez]

правда?

девушка автоперекупщик из института культуры кодит на паскале
что-то я в этой жизни пропустил -)

я и говорю, сам в шоке

 

[zansul]

 

[Sergie Blues]

Может так?

procedure vvod(var d:bal);
var j:byte;
f:byte;
begin
clrscr;
writeln('vvedite kol predmetov');
readln(d.m);
clrscr;
f:=4;

writeln(' ----------------------------- ');
writeln('| familiya | predmet | ocenka |');
writeln(' ============================ |');
writeln('| | | |');

gotoxy(2,f);
readln(d.fio);
for j:=1 to d.m do
begin
gotoxy(2,f);
writeln('| | | |');
gotoxy(13,f);
readln(d.pred[j]);
gotoxy(25,f);
readln(d.oc[j]);
f:=f+1;
end;
end;

 

[Дивна суміш]

да... спасибо идет....