Работа с файлами

const n=15;
type shkolota = record
   fio: array [0..2] of string;
    klass:byte;
    year: integer;
    month: byte;
    day: byte;
    age: byte;
  end;
  var a:array[1..n]of shkolota;
       i, j, k, l, sum, b1, b2, b3, b4 :integer;
       percent: real;
begin
 
     Randomize();
   k := 6;
   l := 0;
 while l < k do
 begin
   for i := 1 to n do
   begin
     for j := 0 to 2 do
     begin     
          a[i].fio[j] := a[i].fio[j] + char(97+random(26));         
     end;    
   end;
   inc(l);
 end;
     
for i:=1 to n do
begin
  a[i].year := random(10) + 1995;
  a[i].month := (random(11) + 1);
 end; 
 for i:=1 to n do
  case a[i].month of
    4:a[i].day := (random(29)+1);
   11:a[i].day := (random(29)+1);
    9:a[i].day := (random(29)+1);
    6:a[i].day := (random(29)+1)
    else if (a[i].month = 2) then
      a[i].day := (random(27)+1)
      else 
      a[i].day := (random(30)+1);
  end;
 
for i := 1 to n do
  a[i].klass := (2014 - a[i].year)-7; 
  
 for i := 1 to n do
  a[i].age := 2014 - a[i].year;
  
  {Не продуманно конечно , но что теперь сделаешь  :)  }
  for i := 1 to n -1 do
    for j := 1 to n - i do
       if a[j].age > a[j + 1].age then
       begin
       {Здесь мы запоминаем данные первого школьника}
         b1 := a[j].age;
         b2 := a[j].year;
         b3 := a[j].month;
         b4 := a[j].day;
       {Здесь мы присваиваем данные школьника следующего за первым}  
         a[j].age := a[j+1].age;
         a[j].year := a[j+1].year;
         a[j].month := a[j+1].month;
         a[j].day := a[j+1].day;
        {Здесь мы присваиваем данные первого школьника в данные второго} 
         a[j+1].age := b1;
         a[j+1].year := b2;
         a[j+1].month := b3;
         a[j+1].day := b4;
       end;
       
write('фамилия','     ','имя','    ','отчество','  ','возраст','   ','дата рождения'  );
writeln;       
 for i := 1 to n do
 begin
   for j := 0 to 2 do
   begin
     write(a[i].fio[j],'    ');
   end;
     writeln( a[i].age,'        ',a[i].day,'/',a[i].month,'/',a[i].year );
 end;
 writeln;
 write( 'Самый старший -  ');
 
 for j := 0 to 2 do
 begin
   write(a[n].fio[j],'    ');
 end;
 write(', возраст ');
 writeln( a[n].age, ' лет');
 writeln;
   
 writeln;
 write( 'Самый младший -  ');
 
for j := 0 to 2 do
begin
  write(a[1].fio[j],'    ');
end;
 write(', возраст ');
 writeln( a[1].age, ' лет');
 writeln;
 
write('Введите нужный месяц ');
readln(sum);
writeln;
 
write('День рождение в этом месяце у  ');
writeln;
 for i := 1 to n do
  begin
     if (a[i].month = sum) then
     begin
       for j := 0 to 2 do 
       begin
          write(a[i].fio[j],'    ');
       end;
        writeln(a[i].month);    
     end;   
 end;
    
 end.