Библиотеки и некоторые переменные

[Руся93]

Дорогие ребята помогите разобраться с выделенным что это, для чего это и где описано

program head;
uses crt,convert,process,typed;
BEGIN clrscr;
assign(stud,'C:/FPC/inform/students.txt');
assign(stud_t,,'C:/FPC/inform/list.dat');
convert_file(stud,stud_t);
for i:=1 to 25 do
begin
inter:=arr[i];
write(inter.last_name,' ':14-length(inter.last_name));
write(inter.year,' ');
write(inter.group,' ');
write(inter.mat,' ');
write(inter.phiz,' ');
write(inter.prog,' ');
write(inter.study,' ');
writeln;
end;
writeln;
search(arr);
readkey;
END.

unit process;
interface
uses crt,typed;

procedure search(var x:students_array);

implementation

procedure search(var x:students_array);
begin
for i:=1 to 25 do
begin
inter:=x[i];
inter.srball:=(inter.mat+inter.phiz +inter.prog)/3;
begin
write(inter.last_name,' ':14-length(inter.last_name));
write(inter.year,' ');
write(inter.group,' ');
write(inter.mat,' ');
write(inter.phiz,' ');
write(inter.prog,' ');
write(inter.study,' ');
write(inter.srball:4:2);
writeln;
end;
end;
end;
end.

unit convert;

interface

uses crt,typed;

procedure convert_file(var f_text:text; var tip:students_file_tip);

implementation

procedure convert_file(var f_text:text; var tip:students_file_tip);
begin
reset(f_text);
rewrite(tip);
while not seekeof(f_text) do
begin
read(f_text,inter.last_name);
read(f_text,inter.year);
read(f_text,inter.group);
read(f_text,inter.mat);
read(f_text,inter.phiz);
read(f_text,inter.prog);
read(f_text,inter.study);
write(tip,inter);
readln(f_text);
end;
i:=1;
reset(tip);
while not eof(tip) do
begin
read(tip,inter);
arr[i]:=inter;
inc(i);
end;
close(tip);
end;
end.
unit typed;
interface
uses crt;
type record_student = record
last_name:string[14];
year:integer;
group:integer;
mat:integer;
phiz:integer;
prog:integer;
srball:real;
study:string[2];
end;
students_array = array [1..25] of record_student;
students_file_tip = file of record_student;

var i:integer;
stud:text;
stud_t:students_file_tip;
arr:students_array;
inter:record_student;

implementation
end.

Заранее больше спасибо!!

[ViktorR]

Из предложенного кода видно, что:

assign(stud_t,'C:/FPC/inform/list.dat'); {связать файловую переменную с файлом}
 
stud_t:students_file_tip; {тип файловой переменной}

students_file_tip = file of record_student; { этот тип определяет компонентный файл}

type record_student = record {определяется тип запись - компонента файла}
last_name:string[14];
year:integer;
group:integer;
mat:integer;
phiz:integer;
prog:integer;
srball:real;
study:string[2];
end;

write(inter.last_name,' ':14-length(inter.last_name));

Тут выводится строка, которая хранится в поле, определенной выше записи. Выводимая строка дополняется пробелами так, что бы ее общая длина составила 14 символов (от 14 отнимаем длину выводимой строки).

Аналогично просматривая остальные строки находишь, что, например,

procedure search(var x:students_array); {аргумент функции - массив, тип которого определен ниже, передается по адресу}

students_array = array [1..25] of record_student; {определяется новый тип - массив из 25 элементов, каждый из которых - запись, см. выше}

Ну и так далее ...

[Руся93]

Спасибо большое, подскажите пожалуйста для чего

rewrite(tip);

и где описывается

arr[i]:=inter;