Число 11010111 в двоичной системе счисления соответствует в восьмеричной системе счисления

Делим 11010111 с конца на триады - получается 011-010-111 в двоичной = 327 в восьмеричной 

Program pr; var a : array [1..100, 1..100] of integer; i, max, min, j, n: integer; begin cls; read(n); min : = 100000; max : = -100000; for i : = 1 to n do      for j : = 1 to n do              begin                        read(a[i,j]);                         if (a[i,j] > max) then                              max : = a[i,j];                         if (a[i,j] < min) then                              min : = a[i,j];               end;         writeln ('сумма = ', min + max); writeln ('разность = ', max - min); writeln ('произведение = ', max * min); end.

var

f: file of integer;

i,n,k: byte;

x: integer;

begin

assign(f,'1.dat');

rewrite(f);

write('сколько чисел ввести в файл? ');

readln(n);

k: =0;

writeln('введите числа в файл: ');

for i: =1 to n do

begin

readln(x);

if x> 0 then k: =k+1;

write(f,x);

end;

clrscr;

if k> 0 then

write(f,1);

reset(f);

writeln('содержимое файла: ');

while not eof(f) do

begin

read(f,x);

write(x,' ');

end;

close(f);

end

разберись с к> и все заработает как часики.