Создать программу по обработке записей и записи/чнения из файла

program pr8_stvor;
uses crt;
type student = record
name:string[45];
n_b:string[15];
t_uch:string[17];
gr:string[17];
dat:string[15];
kurs:string[10];
matem, phyz, s_bal:integer;
end;
var s:student; kil:integer;i,cs,e:byte;name1:string; fl:file of string;
group:array[1..100] of student;
begin
clrscr; i:=1;
assign(fl, 'D:\input.txt');
write('inp kol stud: '); readln(kol);
for e:=1 to kol do begin
with group[i] do begin
write('inp name '); read(name);     
write('inp gr '); read(gr);   {gr - группа в которой учится студент}          
write ('inp matem '); readln(matem);
write('inp phyz '); readln(phyz);
s_bal:= (matem + phyz) div 2;
writeln('^^^^^^^^^^^^^^^^^^^^');  inc(i); end; end;
i:=1;   reset(fl);
for i:=1 to kil do begin
 with group[i] do begin
  write(fl,name,s_bal);
 inc(i); end;end;
  close(fl);
 end.

type student=record
                name:string[20];
                oc1,oc2:byte;
                srb:real;
                end;

uses
  crt;
type
  stud = record
    name: string[20];
    a: array [1..2] of integer;
    sr: real;
  end;
var
  i,j: integer;
  f: file of stud;
  spisok: array [1..50] of stud;
  c: char;
begin
  clrscr;
  i:=0;
  c:='y';
  while (c = 'Y') or (c = 'y') do
  begin
    clrscr;
    inc(i);
    write('Ââåäèòå èìÿ: ');
    readln(spisok[i].name);
    for j:= 1 to 2 do
    begin
      write('Ââåäèòå ',i,'-óþ îöåíêó: ');
      readln(spisok[i].a[j]);
    end;
    spisok[i].sr:=(spisok[i].a[1]+spisok[i].a[2])/2;
    write('Äîáàâèòü åùå îäíó çàïèñü?(y/n): ');
    readln(c);
  end;
  assign(f,'input.dat');
  rewrite(f);
  for j:= 1 to i do
    write(f,spisok[j]);
  close(f);
end.

uses
  crt;
type
  stud = record
    name: string[20];
    a: array [1..2] of integer;
    sr: real;
  end;
var
  i,j,size: integer;
  f: file of stud;
  st: stud;
begin
  clrscr;
  assign(f,'input.dat');
  reset(f);
  size:=FileSize(f);
  i:=0;
  while i<size do
  begin
    seek(f,i);
    read(f,st);
    if st.sr>=4 then
      writeln('Èìÿ: ',st.name,' Ñðåäíèé áàë: ',st.sr:4:2);
    inc(i);
  end;
  close(f);
  readkey;
end.

program pr8_sozdanie;
uses crt;
type student = record
name:string[45];
n_b:string[15];
t_uch:string[17];
gr:string[17];
dat:string[15];
kurs:string[10];
matem, phyz, s_bal:integer;
end;
var s:student; kol:integer;i,cs,e:byte;name1:string; fl:text;
group:array[1..100] of student;
begin
clrscr; i:=1;
assign(fl, 'D:\input.txt');
write('inp kol stud: '); readln(kil);
for e:=1 to kol do begin
with group[i] do begin
write('inp pip '); read(name);
write('inp gr '); read(gr);
write('inp kurs ');read(kurs);
write ('inp matem '); readln(matem);
write('inp phyz '); readln(phyz);
s_bal:= (matem + phyz) div 2;
if (i<>kil) then
writeln('^^^^^^^^^^^^^^^^^^^^');
else writeln('---GOTOVO!---')end;  inc(i); end; end;
i:=1;
for i:=1 to kol do begin rewrite(fl); writeln(fl,kol);{записываем количество студентов для корректной роботы следуещей программы}
 with group[i] do begin
  writeln(fl,name);
  writeln(fl,s_bal);
 inc(i); end;end;
  close(fl);
 end.

program pr8_sozd;
uses crt;
type student = record
name:string[45];
n_b:string[15];
t_uch:string[17];
gr:string[17];
dat:string[15];
kurs:string[10];
matem, phyz, s_bal:integer;
end;
var s:student; kol:integer;i,cs,e:byte;name1:string; fl:text;
group:array[1..100] of student;
begin
clrscr; i:=1;
assign(fl, 'D:\input.txt');
write('inp kol stud: '); readln(kol);
for e:=1 to  kol do begin
with group[i] do begin
write('inp pip '); read(name);
write('inp gr '); read(gr);
write('inp kurs ');read(kurs);
write ('inp matem '); readln(matem);
write('inp phyz '); readln(phyz);
s_bal:= (matem + phyz) div 2;
if (i<> kol) then
writeln('______________')
else writeln(' ---GOTOVO!---')end;  inc(i); end;rewrite(fl);
writeln(fl, kol); i:=1;
for e:=1 to kol do begin
 with group[i] do begin
  writeln(fl,'Зовут ',name);
  writeln(fl,'Оценка ',s_bal);
 end;inc(i);end;
  close(fl);
 end.