Помогите пожалуйста на Паскале или С#

вот похожая, если надо, пришлю всю прогу в адрес
{Разработать штатное содержание сотрудников отдела, содержащее ФИО сотрудника,
даты рождения, образования, домашнего адреса, номера телефона, должности профессии.
Выводить информацию о :
Сотрудниках с Высшим образованием
Сотрудниках с конкретной профессией
Именинниках конкретного месяца }
uses crt;
type
firm = record
f,ob,ad,tel,d: string;
den,mes,god:string;
end;
var
a: array[1..100] of firm;
obr,prof,im:string;
n,i,k:integer;
W:firm;
t:Text;
// t: file of firm;
z:char;
namebd:string;
Procedure make; // -------- процкдура записи в файл --------
begin
{ write(' ввести имя файла ( например: otdel): ');
readln( namebd);
namebd:=namebd+'.txt'; }
assign(t,namebd);
rewrite(t);
write('количество сотрудников='); readln(n);
for i:=1 to n do
with a[i] do begin
writeln('фамилия ',i,' сотрудника: '); readln(f); writeln(t,f);
writeln('день рождения (DD): '); readln(den); writeln(t,den);
writeln('месяц рождения (MM): '); readln(mes); writeln(t,mes);
writeln('год рождения (GGGG): '); readln(god); writeln(t,god);
writeln('образование: '); readln(ob); writeln(t,ob);
writeln('адрес: '); readln(ad); writeln(t,ad);
writeln('телефон: '); readln(tel); writeln(t,tel);
writeln('должность: '); readln(d); writeln(t,d);
end;
close(t);
end;
procedure show; //------------просмотр файла-------------
var i:integer;
begin
writeln('просмотр файла');
reset(t);
writeln('---------------------------------------------------------------');
writeln(' N Фамилия дата образ адрес тел должность ');
writeln('---------------------------------------------------------------');
i:=0;
writeln;

while not eof(t) do begin
inc(i);
readln(t,w.f);
readln(t,w.den);
readln(t,w.mes);
readln(t,w.god);
readln(t,w.ob);
readln(t,w.ad);
readln(t,w.tel);
readln(t,w.d); // readln;
with w do
writeln(i:3,f:10,' ', den:2,mes:3,god:5,' ',ob:6,' ',ad:6,tel:9,' ',d:6);
end;
writeln('--> enter'); readln;
close(t);
end;