Помогите решить задачку, на записи Опции

[zaika]

Здравствуйте
Вообщем надо вывести из готовой записи студента со всеми его данными, начинающегося на букву В!!!
Вот нашла тут кое что...но это мне ничем не помогло
Сортировка студентов по фамильно в алфавитном порядке

Код

function strcomp(Key1, Key2: String): Integer;
var i,m,c: integer;
begin
    c:=0;
    m:=length(Key1);
    if m>length(Key2) then m:=length(Key2);
    for i:=1 to m do
    begin
         c:=ord(Key1[i])-ord(Key2[i]);
         if c<>0 then break;
    end;
    strcomp:=c
end;

Поможите кто чем может

[-Катюшка-]

Может поможет:

Procedure Search_students(var f:f_student);
Var
 st1:student;
 found:boolean;
 b:char;
Begin
 b:='B';
 Found:=false;
 Reset(f);
 While not eof(f) do
  Begin
   Read(f,st1);
   If (Pos(b,st1.FIO)<>0) then
    Begin
     Writeln(st1.FIO:15,st1.godroj:6); {==здесь можно добавить ещё данные, которые тебе нужны}
     Found:=True;
    End;
  End;
 If not Found then
  Writeln('Takix stydentov net');
 Readln;
 Close(f);
End;

а запись выглядит так

Type
 student=record
  number:integer;
  FIO:string[15];
  godroj:integer;
   ocenki:record
   fiz:1..5;
   mat:1..5;
   prog:1..5;
   ist:1..5;
   end;
  end;
 f_student=file of student;
Var
 f:f_student;