Научите сравнивать два двоичных числа! на каком нибудь примере! )

Переводишь числа из двоичной системы в десятичную и сравниваешь. пример: сравнить 1001 и  1011 1001 = 9 1011 = 11 9  <   11 соответственно  1001  <   1011

Const   n = 50; var   x: array[1..n] of real;   max: real;   i: integer; begin   writeln('введите ', n, ' элементов массива');   max : = -1e20; { число, заведомо меньшее вводимых }   for i : = 1 to n do   begin       read(x[i]);       if max < x[i] then max : = x[i]   end;   writeln;   for i : = 1 to n do   begin x[i] : = x[i] / max; write(x[i], ' ') end;   writeln end.

Var s1,s2,s3,s4: string; k: integer; begin   writeln('введите 1 слово: ');   readln(s1);   writeln('введите 2 слово: ');   readln(s2);   writeln('введите 3 слово: ');   readln(s3);   writeln('введите 4 слово: ');   readln(s4);   writeln('список одинаковых слов');   if (s1=s2)or(s1=s3)or(s1=s4) then begin k: =1; writeln(s1); end;   if (s2=s3)or(s2=s4) then begin k: =1; writeln(s2); end;   if  s3=s4 then begin k: =1; writeln(s3); end;   if k=0 then writeln('одинаковых слов нет'); end.