правила машины тьюринга

uses crt;
var
n,a,b,k,z,x,i:byte;
begin
clrscr;
write('Размер последовательности n=');
readln(n);
writeln('Вводите последовательность из 0 и 1:');
readln(a);
k:=1;
z:=1;
 for i:=1 to n-1 do
  begin
  readln(b);
   if(a<>0)then
    begin
     k:=k+1;
     a:=b;
    end
   else
    begin
     z:=z+1;
     a:=b;
   end;
  end;
writeln('В последовательности больше:');
 if(z>k)then
 x:=0
 else
 x:=1;
 write(x);
end.

uses crt;
var st:string;
i,k0,k1:integer;
begin
 write('-> ');
 readln(st);
 k0:=0;
 k1:=0;
 for i:=1 to length(st) do if st[i]='0' then inc(k0) else inc(k1);
 if k0>k1 then write('Ответ: 0') else if k0<k1 then write('Ответ: 1') else write('Одинаковое кол-во');
 readln;
end.

program tralala;
uses crt;
const
z=100;
var
m:array[1..z] of integer;
i,n,a,b,c:integer;
Begin
 writeln('Введите колличество элементов последовательности');
 readln(n);
 for i:=1 to n do readln(m[i]);
 a:=0;b:=0;c:=0;
 for i:=1 to n do
 Begin 
  if m[i]=0 then inc(a)
  else if m[i]=1 then inc(b)
  else c:=1;
 end;
 
 if c=0 then 
 Begin
  if a>b then writeln('В последовательности больше 0')
  else if a<b then writeln('В последовательности больше 1')
  else if a=b then writeln('Коллиечтво 0 и 1 в последовательности одинаковое');
  end
 else 
 Begin
  writeln('Последовательность состоит не только из 0 и 1');
 end;
end.