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

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

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

[volvo]

Ну, так в чем дело? Почему ты этого не сделал(а)? Нельзя ПРОВЕРЯТЬ программы, прежде чем постить?
Извини, придется!

7. Проверяйте программы перед тем, как разместить их на форуме!!!

P.S. Перед фамилией может и не быть пробела, кстати... Не забудь об этом...