Описание записи в модуле Pascal

 
uses
 modul1_A,
 crt;
type formadocumenta=record                        // записи
   nomer:string [3];                              // номер
   fio: string[45];                               // ФИО
   pol: char;                                     // пол
   nomgr:string[5];                               // номер группы
   math: real;                                    // оценка за математику
   prog: real;                                    // оценка за програмирование
   hist: real;                                    // оценка за история
   end;
var
 vvod: text ;                                             // файл ,где хранятся данные                                    // файл ,куда будут сохранятся данные                                         // счётчик для тех у кого 4,5
 i: integer ;
 student: array  [1..b ] of  formadocumenta;                                        // средняя оценка
begin
 assign(vvod,'C:\FPC\3.0.4\vvod.txt');          // объяявление файла ввода
 reset(vvod);                                      // открытие файла ввода
 for i:=1 to b do                                 // алгоритм для записи
   begin
   writeln ('Cведения о ',i,' студенте ');        //строки для формы
   writeln ('   Форма документа ');
   writeln ('   Итоги сессии ') ;
   writeln ('Номер студента');
   readln(vvod,student[i].nomer);                 // чтение номера студента из файла
   writeln(student[i].nomer);                     // вывод этого номера
   writeln('Фамиилия Имя Отчество ');
    readln(vvod,student[i].fio);                  // чтение ФИО студента из файла
    writeln(student[i].fio);                      // вывод этого ФИО
     writeln('Пол');
    readln(vvod,student[i].pol);                  // чтени пола из файла
    writeln(student[i].pol);                      // вывод пола студента
    writeln('Номер группы');
    readln(vvod,student[i].nomgr);                // чтение номера группы из файла
    writeln(student[i].nomgr);                    // вывод номера группы
    writeln('Результаты сессии') ;
    writeln('Математика')  ;
    readln(vvod,student[i].math);                 // чтение оценки по математике
    writeln(student[i].math:1:0);                 // вывод оценки по математике
    writeln('Программирование');
    readln(vvod,student[i].prog);                 // чтение оценки по программированию
    writeln(student[i].prog:1:0);                 // вывод этой оценки
    writeln('История');
    readln(vvod,student[i].hist);                 // чтение оценки по истории
    writeln(student[i].hist:1:0);                 // вывод этой оценки
   end;
 close(vvod);                                    // закрытие файла с информацией
 procent;
 SR_mark;
 ZAP;
   end.

 
unit modul1_A;
interface
 
const
b =5;
var
vivod :text;
sro: array [1..b] of real;
 z:real ;
procedure procent ;
procedure SR_MARK ;
procedure ZAP ;
implementation
procedure procent ;
 
var i,
    q:integer;
begin
 q:=0 ;
 for i:=1 to b do                                // алгоритм поиска оценки
  begin
   if student [i].math >=4 then
    if student[i].prog >=4 then
     if student[i].hist >=4 then
        q:=q+1;
         end;
         z:= (q*100)/b;
   end;
 procedure SR_MARK ;
 
  var
  i:integer;
  x,
  y :byte;
  d : real;
  begin
  for i:=1 to b do
   begin   
   sro[i]:= (student[i].math+student[i].prog+student[i].hist)/3;          // алгоритм сортировки
   end;
  for x := 1 to b-1 do
    for y := 1 to b-x do
    begin
      if sro[y] < sro[y+1] then
      begin
        d := sro[y];
        sro[y] := sro[y+1];
        sro[y+1] := d;
      end;
    end;
    end;
 procedure ZAP ;
 var
 i :integer ;
  begin
  assign(vivod, 'C:\FPC\3.0.4\vivod.txt');  // объявление файла вывода
  rewrite(vivod);
  writeln (vivod ,'Проценнт студентов сдавших ссесию на  4,5 ',z:1:2,'%' );
  writeln (vivod , 'Список студентов отсортированных по средней оценке ' );
   for i:=1 to b do
   writeln(vivod,student[i].fio ,' ',sro[i]:2:2 ) ;                      // запись  людей отсортированных по средней оценке в файл
   close (vivod);
   end;
   end.