Переписать числа в выходной файл в двоичном коде

uses crt;
type
rec1=record
sn:string[30];
m:array[1..5]of byte;
end;
rec2=record
sn:string[30];
st:word;
end;
var a1:array[1..30]of rec1;a2:array[1..30]of rec2;
pr:array[1..5]of word;i,j,b,k:byte;sum:word;
begin clrscr;write('Count of Students: ');
readln(b);write('Count of Exams: ');readln(k);
for i:=1 to 5 do pr[i]:=i*100;
for i:=1 to b do begin sum:=0;
write('SirName: ');readln(a1[i].sn);
for j:=1 to k do begin
write('Mark #',j,' : ');readln(a1[i].m[j]);
inc(sum,pr[a1[i].m[j]]);end;
a2[i].sn:=a1[i].sn;a2[i].st:=sum;end;writeln;writeln;
for i:=1 to b do begin writeln('SirName: ',a2[i].sn);
writeln('Stipendia: ',a2[i].st);writeln;end;readkey;end.

uses crt;
type
rec1=record     //Первая Запись
sn:string[30];
m:array[1..5]of byte;
st:boolean;
end;
rec2=record     //Вторая Запись
sn:string[30];
st:word;
end;
var a1:array[1..30]of rec1;a2:array[1..30]of rec2;
pr:array[1..5]of word;  //Масив цен оценок
i,j,b,k:byte;sum:word;s:string[3];
begin clrscr;write('Count of Students: ');//Количество студентов
readln(b);write('Count of Exams: ');readln(k);//Количество оценок
for i:=1 to 5 do pr[i]:=i*100;//Генерируем цены
//Главная Часть
for i:=1 to b do begin sum:=0;
write('SirName: ');readln(a1[i].sn);
write('Stependia: ');readln(s);//Если степендия полагается, вводите "yes" или "da"!
if(s='yes')or(s='da')then a1[i].st:=true else a1[i].st:=false;
for j:=1 to k do begin
write('Mark #',j,' : ');readln(a1[i].m[j]);
if a1[i].st then inc(sum,pr[a1[i].m[j]]);end;
a2[i].sn:=a1[i].sn;a2[i].st:=sum;end;writeln;writeln;
//Вывод Результатов
for i:=1 to b do begin writeln('SirName: ',a2[i].sn);//Примечание! Если степендия не пологается, она не выводится
if a1[i].st then writeln('Stipendia: ',a2[i].st);writeln;end;readkey;end.

uses crt;
type
usl=record
sn:string[30];
pr:word;
end;
masiv=array[1..30]of usl;
var b1,b2,out:masiv;f1,f2,outf:text;i,j,k1,k2:byte;
procedure del(var b:masiv;j:byte;var k:byte);var i:byte;
begin for i:=j to k-1 do b[i]:=b[i+1];dec(k);end;
begin clrscr;assign(f1,'h_68_1.txt');assign(f2,'h_68_2.txt');
assign(outf,'h_68_out.txt');reset(f1);reset(f2);rewrite(outf);
while(not(eof(f1)))do begin inc(k1);
readln(f1,b1[k1].sn,b1[k1].pr);end;
while(not(eof(f2)))do begin inc(k2);
readln(f2,b2[k2].sn,b2[k2].pr);end;
close(f1);close(f2);
for i:=1 to k1 do begin
for j:=1 to k2 do if(b1[i].sn=b2[j].sn)then begin
inc(b1[i].pr,b2[j].pr);del(b2,j,k2);break;end;
out[i]:=b1[i];end;for i:=1 to k2 do out[k1+i]:=b2[i];
for i:=1 to k1+k2 do begin writeln(outf,out[i].sn);
writeln(outf,out[i].pr);end;close(outf);end.

uses crt;var f1,f2:text;i,j:byte;n:longint;
function dec(j:longint):string;var i:longint;s:string;
begin i:=1073741824;s:='';while(i>0)do
begin if (j and i)<>0 then
s:=s+'1' else if(s<>'')then s:=s+'0';
i:=i div 2;end;dec:=s;end;
begin clrscr;write('Count of numbers: ');readln(j);
assign(f1,'h_69_in.txt');rewrite(f1);
for i:=1 to j do begin readln(n);writeln(f1,n);end;
close(f1);reset(f1);assign(f2,'h_69_out.txt');rewrite(f2);
for i:=1 to j do begin readln(f1,n);writeln(f2,dec(n));end;
close(f1);close(f2);writeln('Files were added!');readkey;end.