Да я даже не знаю, вроде бы сегодня надо желательно
еще момент, знаю что в этой процедуре точно бред я написал:
Код:
procedure obr;
begin {obr}
assign (studfile, 'c:/USP.DAT');
reset (studfile);
with recstud do
while not eof(studfile) do
begin
read (studfile, recstud);
{ (matemat,fizika,istoriya,informatika);
if matemat+fizika+istoriya+informatika<9 then}
writeln ('|',familiya: 1,'|',um9:4,'|',ot4estvo:12,'|', pol: 2,'|', Datarojd:11,'|',gruppa: 5,'|');
end;
close (studfile);
end; {obr}
еще, вообще понять не могу, как в один предмет, записать 3 оценки, грубо говоря, это для меня непонятно так же, как в одну ячейку записать 3 значения