Задача: В файле хранится информация о каждом студенте группы: фамилия и оценки по трем предметам. Переписать эти данные в другой файл записей, исключая сведения о неуспевающих студентах. вот что у меня есть
Code
Program lab_9;
uses crt;
type zap=record
name:string;
mark1,mark2,mark3:byte;
end;
ff=file of zap;
Function sum(a:zap):byte;
begin
sum:=a.mark1+a.mark2+a.mark3;
end;
Procedure all(a:zap);
var f1,f2:ff; i,n,sum:byte; s:string;
begin
assign(f1,s);
rewrite(f1);
Write('input n-');Readln(n);
For i:=1 to n do
begin
write('name-');Readln(a.name);
write('ocenka1-');Readln(a.mark1);
write('ocenka2-');Readln(a.mark2);
write('ocenka3-');Readln(a.mark3);
end;
close(f1);
reset(f1);
assign(f2,s);
rewrite(f2);
while not eof(f1) do
begin
readln(f1,s);
if sum>=12 then
Writeln(f2,s);
end;
close(f1);
close(f2);
end;
ПОМОГИТЕ ПЛИЗ!!!
