Паскаль. Разбить на подпрограммы.

[ksusha_kse]

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

помогите пожалуйста

Program ucheniki;
type
uch = record
fam:string;
ball:array[1..10] of integer;
end;
var f,fout:text;
fname:string;
fe:boolean;
a:array[1..10] of uch;
i,j,n:integer;
u:uch;
begin
write('vvedite imya faila: ');
readln(fname);
assign (f,fname);
reset(f);
write('vvedite n: ');
readln(n);

for i:=1 to n do    begin
readln (f,a[i].fam);
readln (f,a[i].ball[1]);
readln (f,a[i].ball[2]);
readln (f,a[i].ball[3]);
end;
close(f);
assign (fout,'resultat.txt');
rewrite(fout);
for i:=1 to n do
 begin
  fe:=true;
  for j:=1 to 3 do
  if a[i].ball[j]<3 then fe:=false;
  if fe then
   begin
    write (fout,a[i].fam);
    for j:=1 to 3 do
    write (fout,a[i].ball[j]:3);
    writeln(fout);
   end;
 end;
close (fout);
end.