Задача на записи Опции

[не ангел]

Привет! Не буду оригинальной, помогите, пожалуйста, с задачей!
Условие задачи:
Распечатать фамилии рабочих бригады, начинающихся с букв А и С, с указанием их месячной зарплаты.
Данные берутся из готового файла.
Основу я составила, но как произвести поиск и распечатку определенных фамилий с соответствующей зарплатой?
Заранее спасибо!

[не ангел]

Вот основа. Только нужно поиск осуществить. Я не знаю как условие составить.

Код

Program Zap;
uses crt;
type prog=record
               F:string;
               I:string;
               O:string;
               Z:word;
               end;
var v:text;
work:prog;
begin
clrscr;
assign (v,'brigada.txt');
reset (v);
with work do begin
while not eof(v) do
begin
Readln (v,F);
Readln (v,I);
Readln (v,O);
Readln (v,Z);
writeln (F:10,I:10,O:12,Z:6);
end;
end;
close (v);
end.