Помогите расписать что происходит в этих циклах(выделено красным)

[kanav2]

var f,g:text;
n,s,s1:string;
a,k,p:integer;
begin
assign(f,'family.txt');
reset(f);
assign(g,'note.txt');
reset(g);
writeln(' |Ф.И.О| ↓Оценки↓');
while not eof(g) do begin
readln(f,s1); readln(g,s);
writeln(s1,' ',s);
end;

close(f);
close(g);
assign(f,'family.txt');
reset(f);
assign(g,'note.txt');
reset(g);
writeln('Cписок студентов получающих стипендию:');
k:=0;
while not eof(f) do
begin
readln(f,n);
p:=0;
while not eoln(g)and(p=0) do
begin
read(g,a);
if not(a in [4,5])then p:=1;
end;
if p=0 then
begin
k:=1;
writeln(n);
end;
readln(g,s);
end;
close(f);
close(g);
if k=0 then write('Таких студентов нет');
end.
Помогите расписать что происходит в этих циклах(выделено красным)