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

[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;

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