сформировать массив из чисел в 8ричной, десятичной или 16ричной системах исчисления.

Type
mas=array[1..100] of integer;
 
Var
f:file of byte;
 
procedure ass(Var A:mas; f:text; N,S:integer);
Var
Begin
assign(f,'adress');
reset(f); 
N:=filesize(f);
write('система s=');
readln(S); end;
 
Procedure eight(Var  A:mas; f:text; N:integer;);
Var
k:integer;
k:=nmod8;
N:=N-k;  i:=0;
while not EOF(f) do
begin i:=i+1;
A[i]:=0;
d:=1;
for i:=1 to 8 do begin
readln(F,c);
A[i]:=A[i] (f,c)*d
d:=d*10; end;end;end
 
Procedure double(Var  A:mas; f:text; N:integer;);
k:=nmod2;
N:=N-k;  i:=0;
while not EOF(f) do
begin i:=i+1;
A[i]:=0;
a:=1;
for i:=1 to 2 do begin
read(f,a);
A[i]:=A[i]+a*d;
d:=d-10; 
end;end;end
 
Procedure sixteen(Var  A:mas; f:text; N:integer;);
k:=nmod16;
N:=N-k;  i:=0;
while not EOF(f) do
begin i:=i+1;
A[i]:=0;
d:=1;
for i:=1 to 16 do begin
read(f,a); 
A[i]:=A[i]+a*d;
d:=d*10;
if a[i]=10 then A[i]:='A';
if a[i]=11 then A[i]:='B';
if a[i]=12 then A[i]:='C';
if a[i]=13 then A[i]:='D';
if a[i]=14 then A[i]:='E';
if a[i]=15 then A[i]:='F';
end;end;end
 
Begin
procedure ass(A,f,N,S);
If  S=2 then do begin Procedure double(A, f, N);
If  S=8 then do begin Procedure eight(A, f, N);
If  S=16 then do begin Procedure sixteen(A, f, N);
If  S<>(2 or 8 or 16) then do begin
writeln('Good Bye!');
end.

(Var A:mas; var f:text; N,S:integer);