Делимость на 7!!!!

[darter96]

Требуется определить делимость на 7 ряда целых чисел, записанных в двоичной системе счисления.Помогите вот мое решение но у меня ошибка!исправте пзл!
var s:array [1..10000] of String;
x,i,n:integer;
begin
read(s[i]);
while(length(s) mod 3>0) do s[i]:='0'+s[i] ;
while (s[i]>'' ) do
begin
x:=x+s[1]*4+s[2]*2+s[3];
delete(s,1,3);
end;
if(x mod 7=0) then write ('Yes') else write('No');
end.