Форматированный вывод из текстовых файлов

var f,g,q:text;
    n,s:string;
    a,k,p:integer;
begin
assign(f,'family.txt');
reset(f);
assign(g,'note.txt');
reset(g);
assign(q,'fn.txt');
reset(q);
while not eof(q) do begin
  readln(q,s);
  writeln(s);
end;
writeln('Студенты получающие стипендию:');
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.

while not eof(q) do begin
  readln(f,s1); readln(q,s);
  writeln(s1,' ',s);
end;

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);
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('Студенты получающие стипендию:');
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.