9.   Распечатать список учеников, фамилии которых начинаются на букву В, с указанием даты их рождения.

Решение

program zapisi;

type k=record

     name:string;

     data:string;

     klass:string;

     end;

var f:file of k;

    i,s:integer;

    bo:boolean;

    a:k;

begin

     assign(f,'student');

     rewrite(f);

     writeln('vvedite 4islo uchenikov');

     readln(s);

     for i:=1 to s do

     begin

          writeln('Imya');

          readln(a.name);

          writeln('data rojdeniya');

          readln(a.data);

          writeln('klass');

          readln(a.klass);

          write(f,a);

     end;

     close(f);

     reset(f);

     writeln('  name   | data rojdeniya | klass');

     writeln('_________________________________');

     while not (eof(f)) do

     begin

          read(f,a);

          writeln(a.name:10,'  ',a.data:10,'   ',a.klass:6);

     end;

     close(f);

     reset(f);

     bo:=true;

     while not(eof(f)) do

     begin

          read(f,a);

          if (a.name[1]='B') or (a.name[1]='b') then

          begin

               if bo then begin writeln('Familii s "B"'); bo:=false; end;

               writeln(a.name:10,'   ', a.data:10);

          end;

     end;

     close(f);

     readln;

end.