for i:=1 to length(s) do //ověření zda se jedná o binární číslo
begin
if (s[i]>'1') or (strtoint(s[i])<0) or ((s[i]>='A') and (s[i]<='Z')) or ((s[i]>='a') and (s[i]<='z')) then //podmínka pro binár. číslice
Tak to si ma dostal....
Overenie by malo vyzerať asi takto:
if not (s[i] in ['0', '1']) then
Binárne čísla sú 0,1 načo overuješ A,a,Z,z.....
Naozaj ten Tvoj kód je zbytočne pracný a neúčelný...