Principiato Novo

for CHRcntA:=0 to 255 do begin
if CHRarrIN[CHRcntA]>0 then begin
CHRarrOU[CHRcntB]:=CHRcntA;
CHRcntB:=CHRcntB+1;
end;
end;
for CHRcntA:=0 to 255 do begin
write(CHRarrOU[CHRcntA],', ');
end;
for CHRcntA:=0 to 255 do begin
B:=CHRarrOU[CHRcntA];
write(f2,B);
end;

reset(f1);

p.S. Узнаете кусок - звоните. Там есть часть моего телефона. +375-25-___-__-__. Для тех кто сможет решить это уравнение