Codificación binaria de 0 y 1

```pascal
program binaire;

uses WinCrt;

type
tab = array[1..8] of string;

var
i, n, j, nbre, l: integer;
T1, T2: tab;
bb: boolean;
res, chnbre: string;
element: char;

begin

repeat
writeln ('n=');
readln (n);
until n in [2..8];

for i := 1 to n do
repeat
writeln('donner l'' élément ', i);
readln (T1[i]);
j := 1; bb := true;

repeat
if not (T1[i][j] in ['0'..'1']) then
bb := false;
j := j + 1;
until (length(T1[i]) = 8) or (bb = false);
until (length(T1[i]) = 8) and (bb);

for i := 1 to n do
begin
nbre := 1; l := 1; j := 1;

repeat
element := T1[i][j];
nbre := 1;

while (j < 8) and (T1[i][j + 1] = element) do
begin
j := j + 1;
nbre := nbre + 1;
end;

if (nbre > 1) then
begin
str(nbre, chnbre);
T2[i] := T2[i] + chnbre + T1[i][j];
end
else
begin
T2[i] := T2[i] + T1[i][j];
end;

j := j + 1;
until (j > 8);

end;

for i := 1 to n do
writeln (T2[i]);
end.
```