Дана строка их нулей и единиц.Вывести самую длинную группу. Delphi

[VladGorin]

здравствуйте у меня задание:Дана строка их нулей и единиц.Вывести самую длинную группу.
Посмотрите пожалуйста в чем ошибка,я не могу разобраться

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
  Form1: TForm1;
  s,MAX,str:string; 
  m:byte; // длина текущей последовательности

implementation

{$R *.dfm}


procedure TForm1.Button1Click(Sender: TObject);
var
  n, mas, i, m: integer;
begin
  str := s[1]; //определяем первый символ - он же начало последовательности;
  MAX := s[1]; //собственно, символы последовательности
  mas := length(s); // предположим, что последовательность ОДНА, то есть все символы одинаковые;
  m := 1;
  for i := 1 to length(s) - 1 do
  begin
    if s[i] = str then
      inc(m) //если символ тот же, что и остальные, увеличиваем длину цепочки
    else
    begin
      if m > mas then
        mas := m; //если длина цепочки больше, то заменяем значение
      MAX := s[i - 1]; //не забываем указать символ этой последовательности
      str := s[i]; //определяем символы новой последовательности
    end;
  end;
  for i := 1 to mas do
    ShowMessage(Max)
  //выводим самую большую цепочку
end;

end.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Serge_Bliznykov]

у Вас ошибок много... (например, изначально надо считать, что длина максимальной последовательности равна 1 (единице):
mas := 1;

цикл перебора for надо начинать не с 1-го символа (вы же его уже учли), а со 2-го... крутить нужно до length(s) ну и т.д.
ну и дальше ещё куча всего..


вот, может такой код Вам подойдёт:

{
Дан массив из N целых чисел. Его значения- только нули и единицы. Найти
номер элемента, с которого начинается самая длинная последовательность
одинаковых чисел.
}

var
  i,k:integer;
  m,j:integer;
    s:string;
begin
s:='00011101101111';
{readln(s);}
Writeln(s);
  k:=1;m:=1;j:=1;
  for i := 2 to Length(s) do begin
    if s[i]=s[i-1] then  inc(k);
    if (s[i]<>s[i-1]) or (i=length(s)) then
          begin
            if k>=m then
              begin
                m:=k;
                j:=i-k;
              end;
            k:=1;
            end;
  end;

  writeln('pos=',j:4);
  readln;
end.