Версия для печати темы

____________________________________________________________________
ФИО               Лекции                Пpактики             Всего
             ________________________________________              
                 час          %         час       %          часов
____________________________________________________________________
fam             kol1         pr1        kol2      pr2         kol
____________________________________________________________________
В среднем                    -                     -           -
____________________________________________________________________

function FileExists(str:string): boolean;
var
 ff: text;
begin
 assign(ff,str);
 {$I-}
 reset(ff);
 {$I+}
 if IORESULT=0 then
 begin
   close(ff);
   FileExists:=true;
 end
 else FileExists:=false;
end;

while not EOF(F) do
begin
 read(F, rec);
 if rec.fio=fio then
 begin
 {...}
 end;
end;

TextColor(red);
Writeln('Фаил таблицы:');
NAME:='';
WHILE NAME='' DO readln(name);

TextColor(red);
Writeln('Фаил таблицы:');
readln(name);

Practice_Average:=Practice_Total/Count;
Theory_Average:=Theory_Total/Count;

Practice_Total:=0;
Theory_Total:=0;
while Not EOF(F) do
begin
 read(F,rec);
 inc(Practice_Total, практик_у_препода); { inc(k,n);  <=>  k:=k+n; }
 inc(Theory_Total, лекций_у_препода);
 inc(Count);
 {...}
end;
Practice_Average:=Practice_Total/Count;
Theory_Average:=Theory_Total/Count;