Записи комбинированный тип данных

[Александр Бутырин]

Помогите пожалуйста решить задачу:Существует некоторая фирма, которая образована в 1991 году. Составить список сотрудников этой фирмы, содержащей 20 человек. Список должен содержать следующие сведения для каждого сотрудника: Ф.И.О., дату рождения, год поступления в фирму, оклад, адрес(улица, номер дома и квартиры). Информацию о каждом сотруднике оформить в виде записи.Вывести на экран ФИО сотрудников у которых улица начинается с буквы «м» и номер дома больше 5

Program Laba_4;
type
firma=record
fio:string[100]; d, m:byte; y:integer;{дата, месяц ,год}
vfirme, zarplata, dom, kvartira:integer; ulica:string[50]; 
end;
var fv:file of firma;
rv:firma;
T:string;
begin
assign (fv,'firma.doc');
rewrite(fv);
with rv do begin
while true do begin
writeln('ФИО'); readln(fio);
writeln('ДАТА, МЕСЯЦ, ГОД РОЖДЕНИЯ'); readln(d,m,y);
writeln('С КАКОГО ГОДА В ФИРМЕ'); readln(vfirme);
writeln('ЗАРПЛАТА'); readln(zarplata);
writeln('УЛИЦА, ДОМ, КВАРТИРА'); readln(ulica,dom,kvartira);
write(fv,rv);
writeln('ПРОДОЛЖИТЬ ВВОД СОТРУДНИКОВ ДА, НЕТ'); readln(T);
if T='НЕТ'then begin
close(fv);
halt;
end;end;end;
end.

Мне нужна программа которая обрабатывает данные и выводит их на экран;

[Hacker19_90]

Ася в профиле!

[Александр Бутырин]

Что никто незнает????

[Mad_Cat]

Что никто незнает????

он знает==>

Сообщение от Hacker19_90

Ася в профиле!

ну или ко мне стучите! за денежку напишу

[Stilet]

Вывести на экран ФИО сотрудников у которых улица начинается с буквы «м» и номер дома больше 5

С пентхауса:

reset(fv);
while not eof(fv) do begin
 read(fv,rv);
 if (length(rv.ulica)>0) and (rv.ulica[1]='м') then begin
  write('ФИО:10',rv.fio);
  writeln('ДАТА, МЕСЯЦ, ГОД РОЖДЕНИЯ ',rv.d,rv,m,rv.y);
  writeln('С КАКОГО ГОДА В ФИРМЕ ',rv.vfirme);
  writeln('ЗАРПЛАТА',rv.zarplata);
  writeln('УЛИЦА, ДОМ, КВАРТИРА',rv.ulica,rv.dom,rv.kvartira);
  end;
end;