Файл записей. Паскаль

[Гамбит]

Доброго времени суток! прошу помочь в решении задачи.

14. В файле хранится информация о каждом студенте группы: фамилия и оценки по трем предметам. Переписать эти данные в другой файл записей, исключая сведения о неуспевающих студентах.

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;
var a:zap;
begin
all(a);
readln;
end.

вот что у меня получилось

[Serge_Bliznykov]

1) не проверял, но это не должно даже компилироваться!
для типизированных файлов не может быть Readln (как и WriteLn) - это для текстовых файлов, для типизированных только write и read
2) а где собственно запись данных в первый файл?!!!
должно быть так:

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);
  write(f1,a);
end;
close(f1);

ну и небольшие недочёты
3) для оценок удобнее завести массивчик. хотя, для трёх оценок можно и так оставить.
4) неуспевающие - это не те, у кого сумма меньше 12, а те, у кого нет оценок ниже тройки! (сравните пять, пять и два) это неуспевающий. а три, три, три - успевающий студент!

[Гамбит]

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);
write(f1,a);
end;
close(f1);
reset(f1);
assign(f2,s);
rewrite(f2);
while not eof(f1) do
begin
read(f1,a);
if (a.mark1>3) and (a.mark2>3) and (a.mark3>3) then
Write(f2,a);
end;
close(f1);
close(f2);
end;
var a:zap;
begin
all(a);
readln;
end.

теперь правильно?

[Namolem]

а работает?

[Гамбит]

нет =) я чёт с выводом накосячил

[Namolem]

assign(f1,s);

а чему равно S ?