Паскаль. Открыть файл и обработать.

[ovram]

Есть софт для работы с портом, суть в том чтоб открыть бинарный файл и обработать. Пол дня парю мозг над обработкай.

допустим файл 01001011

program vvv;
uses crt;

var i,a:integer;
    f:text;
    b:array of Byte;
begin;
clrscr;
port[888]:=0;
a:=0; i:=0;
writeln('vvedite dlinu fronta',a);
readln(a);
Assign(f,'f.txt');
reset(f);
while eof(f)=False do
begin
inc(i);
setlengs(b,i);
read(f,b[i-1]);
end;
close(f);



writeln('davay rodnoy');
if port[889]=0 then

for i:=0 to Length(b)-1 do
begin

if b[i]=0 then
{если 0}
if port[888]=255 then port[888]:=0; delay(a);
if port[888]=0 then port[888]:=255; delay(a);
if b[i]=1 then
{если =1}
if port[888]=255 then port[888]:=0; delay(a); port[888]:=255; delay(a);
if port[888]=0 then port[888]:=255; delay(a); port[888]:=0; delay(a);
end;
port[888]:=0;
writeln('operation complite');
sound(980); delay(50000); nosound;
read;
end.

Вечно какието бока у компилятора. Как еще придумать чтоб обрабатывать по очереди эти нолики и еденички?

[Stilet]

допустим файл 01001011

Ну и что нам должна сказать эта пространная фраза?
Если у тебя кодирование идет посимвольно то ты верно делаешь.
Если же ты имеешь ввиду что нужно из числа биты повыдерать то в цикле

k:=Число;
for i:=1 to 32 do begin
 if (k and 1)<>0 then begin
  if port[888]=255 then port[888]:=0; delay(a); port[888]:=255; delay(a);
  if port[888]=0 then port[888]:=255; delay(a); port[888]:=0; delay(a);
 end else begin
  if port[888]=255 then port[888]:=0; delay(a);
  if port[888]=0 then port[888]:=255; delay(a);
 end;
 k:=k shr 1;
end;

Вечно какието бока у компилятора.

Это у тебя бока а не у компилятора. Ты сам то пойми сначала чего хочешь.

read(f,b[i-1]);

Файл текстовый? тогда замени на Readln. И Читай в переменку типа String.
А цикл будет

if b[i]='0' then Кстати тут Begin нужен?
{если 0}
...
if b[i]='1' then
{если 1}
...

Короче намутил ты такого что никак не сходится с логикой. Выясняй задачу точно.

[ovram]

Кодирование идет посимвольно, файл текстовый.

[Stilet]

Ну вот в таком случае и работай с ним как с текстовым

program vvv;
uses crt;

var i,a:integer;
    f:text;
    b:string
begin;
clrscr;
port[888]:=0;
a:=0; i:=0;
writeln('vvedite dlinu fronta',a);
readln(a);
Assign(f,'f.txt');reset(f);

while not eof(f) do begin
 readln(f,b);

 For i:=0 to Length(b)-1 do begin
  if b[i]=0 then   {если 0} begin
   if port[888]=255 then port[888]:=0; delay(a);
   if port[888]=0 then port[888]:=255; delay(a);
  end;
  if b[i]=1 then {если =1} begin
   if port[888]=255 then port[888]:=0; delay(a); port[888]:=255; delay(a);
   if port[888]=0 then port[888]:=255; delay(a); port[888]:=0; delay(a);
  end;
 end;

end;
close(f);
...

[ovram]

if b[i]=0 then
жалуется type mismatch

[vovk]

это же символ

if b[i]='0'

Stilet скорее всего набирал всё прямо тут, вполне нормально некоторые очепятки. Самому то тоже думать надо..

[ovram]

теперь тормозит на
close(f); и говорит фаил нот опен
гониво как он мог тогда начинать обработку