комментарии к тексту программы в Delphi

Question

1) 
var F: File of Tstudent; 
....
Assign File (f, save Dialog1, FileName); 
Rewrite(F); 
for i :=1 to Num-1 do 
write (f, Grp[ i ] ); 
close File (F); 
... 
 
2) 
var F: File of Tstudent; 
... 
Assign File (f, Open Dialog, FileName); 
Reset(f); 
Num:=0; 
while not E ot (f) and (Num

Marina Romanuk · Accepted Answer

Как по мне, код вполне самоочевидный (ну, кроме синтаксических ошибок, но ты не о них спрашиваешь) . 
Может, там какой-то глубокий смысл за этим есть, а не просто действия описывать по-русски? Для этого нужно весь код знать.