Очередь (FIFO): студенты, чьи фамилии начинаются с буквы "Б" - Turbo Pascal - Ответ 5756475

program lab3;
type student=record
fam,name,group:string[20];
year:integer;
sr:real;
pstud=^dstud;
dstud=record
s:student;
p:psud;
end;
var stud:student;
f,g:text;
st:string;
prosedure get_string(st:string;var s:student);
var kod;integer;
begin
with s do begin
fam:=copy(st,1,pos('',st)-1);
delete(st,1,pos('',st));
name:=copy(st,1,pos('',st)-1);
delete(st,1,pos('',st));
group:=copy(st,1,pos('',st)-1);
delete(st,1,pos('',st));
val9copy(st,1,pos('',st)-1),year,kod);
delete(st,1,pos('',st));
val(st,sr,kod)
end;
end;
  {âñïîìàãàòåëüíàÿ ïðîöåäóðà äëÿ âûâîäà çàãîëîâêà â ôàéë}
 procedure put_header(header:string);
 begin
 writeln(g,header);
 writeln(g,'|----------------------------------------------');
 writeln(g,'|   ôàìèëèÿ   |    èìÿ    |ãðóïïà | ã.ð  | ñ.ð '):
 writeln(g,'|----------------------------------------------');
 end;
 {âñïîìàãàòåëüíàÿ ïðîöåäóðà äëÿ âûâîäà ñòðîêè â ôàéë}
  procedure put_string(s:string);
  begin
  with s do
  writeln(g,'|',fam:11,'|',name:9,'|',group:10,'|',year:6,'|',sr:6:1,'|');
  end;
  {âñïîìàãàòåëüíàÿ ïðîöåäóðà äëÿ âûâîäà ïîñëåäíèõ äàííûõ â ôàèë}
 procedure put_sub;
 begin
 writeln(g,'|---------------------------------------------');
 writeln(g);
 end;
 {ðàáîòà ñ î÷åðåäüþ}
 procedure FIFO;
 var pBegin1,pbegin,pEnd,Help,:pstud;
 begin
 reset(f);
{Íà÷àëüíîå ôîðìèðîâàíèå}
new(pBegin);
pBegin^.p:=nil;
readln(f,st);get_string(st,stud);
pBegin^.s:=stud;
pEnd:=pBegin;
{Äîáàâëåíèå äàííûõ}
while not eof(f) do
begin
readln(f,st);get_string(st,stud);
new(pHelp);
pHelp^.p:=nil;
pHelp^.s:=stud;
pEnd^.p:=pHelp;
pEnd:=pHelp;
end;
pBegin1:=pBegin;
{Èçâëå÷åíèå âñåõ äàííûõ}
put_header('Èñõîäíûå äàííûå äëÿ î÷åðåäè:');
repeat
stud:=pBegin^.s;
put_string(stud);
pBegin:=pBegin^.p until
pBegin=nil;
put_sub;
{Èçâëå÷åíèå äàííûõ ïî óñëîâèþ è óäàëåíèå î÷åðåäè}
pBegin:=pBegin1;
put_header('Ñòóäåíòû, ÷üè ôàìèëèè íà÷èíàþòñÿ ñ áóêâû "Á:');
repeat
stud:=pBegin^.s;
if stud.fam[1]='Á' then put_string(stud);
pHelp:=pBegin;
pBegin:=pBegin^.p;
dispose(pHelp)
until pBegin=nil;
put_sub
end;
{Ãëàâíàÿ ïðîãðàììà}
begin
assign(g,'result.txt');
{$i-}append(g);{$i+} if ioresult <> 0 then rewrite(g);
 assign(f,'data.txt');
FIFO;
close(f);close(g); writeln('Ok')
 end.