Ясно, спасибо за ваше мнение. Вот только у меня появилась проблема. Где то ошибся в коде - не могли бы вы посмотреть:
Код:
procedure GPAgr(var count:integer);
var
i,j:integer;
sum:real;
begin
reset(f);
for i := 1 to high(GPAgroup) do
for j := 1 to high(GPAgroup[0]) do
begin
count:=0;
sum:=0;
while not(eof(f)) do
begin
read(f,s);
if (i=s.Kurs) and (j=s.Group) then //Вот тут что-то нетак!!!
begin
sum:=sum+GPAstud(s);
inc(count);
end;
end;
if existGR(i,j)=true then GPAgroup[i,j]:=sum/count;
end;
Closefile(f);
end;
s.Kurs и s.Group имеют тип byte.
Так как код написал уже с массивом а особой роли как вы говорите это не играет, решил все так и оставить как есть.
Проверял по счетчику count в первом операторе if не находит совпадения - не могу понять почему... а именно в переменной j чтото нетак - подставлял число вместо нее - все ок... Помогите пожалуйста.