Как найти сумму нужных чисел в текстовом файле (Паскаль)?!!
Задача такова: Файл содержит группу, предмет, количество неудовлетворительных оценок, полученных группой по этому предмету. Подсчитать общее количество двоек, полученное во всех группах.
Есть кое-какие наброски, но количество двоек так и не выходит. Помогите, ПОЖАЛУЙСТА!! !
uses crt;
type doc=record
grup:string[20];
pred:string[20];
kol:byte;
end;
var FileName:string[8];
f:text;
stroka:string[80];
spisok:string[10];
i,n:integer;
gruppa:doc;
kol:integer;
Begin
writeln('Создание списка');
assign(f,'C:\PABCWork\text3.txt');
rewrite(f);
write('Введите количество групп: ');readln(n);
for i:=1 to n do with gruppa do
begin
write(i,')Группа: ');readln(grup);
repeat
write(' предмет: ');readln(pred);
write(' Количество оценок: ');readln(kol) until (kol>0)and(kol<50);
write(f,grup,' ':20-ord(grup[0]));
writeln(f, ' | ', pred,' ':20-ord(pred[0]),' | ',kol:2,' | ');
end;
close(f);
begin
writeln('Полученный файл: ');
assign(f,'C:\PABCWork\text3.txt');reset(f);
repeat
readln(f,stroka);writeln(stroka);
until Eof(f);
reset(f);
writeln('Количество двоек во всех группах: ');
end;
close(f);
begin
assign(f,'C:\PABCWork\text3.txt');
reset(f);
repeat
kol := 0;
while not eoln(f) do begin
read(f, i);
kol := kol + i;
end;
readln(f);
WriteLn(kol);
until eof(f);
close(f);
end;
End.