Помогите найти ошибку в программе и исправить ее

program laba5;
uses wincrt;
var t:string;
w,max,i,n:byte;
begin
writeln('Vvodim stroku');
read(t);
n:=length(t);
w:=1;
max:=w;
for i:=1 to n-1 do
begin
if t[i]in ['a'..'z'] then
     begin
     if ord(t[i+1]-1) = ord(t[i]) then
     w:=w+1
else
if max<w  then
max:=w;
w:=1;
end
else
if max<w then
max:=w;
w:=1;
end;
writeln(max);
end.

if ord(t[i+1])-1 = ord(t[i]) then

program laba5;
uses crt;
var t:string;
    w,max,i,j,n,imax:byte;
begin
writeln('Vvodim stroku');
read(t);
n:=length(t);
max:=0;
imax:=0;
i:=2;
while i<=n do
if (t[i]in ['a'..'z'])and(t[i-1]in ['a'..'z'])and(t[i]=succ(t[i-1])) then
 begin
  j:=i;
  w:=1;
  while(j<=n)and (t[j]in ['a'..'z'])and(t[j-1]in ['a'..'z'])and(t[j]=succ(t[j-1])) do
   begin
    w:=w+1;
    j:=j+1;
   end;
  if w>max then
    begin
     max:=w;
     imax:=i-1;
    end;
  i:=i+w;
 end
else i:=i+1;
if max=0 then write('Данной последовательности нет')
else
 begin
  writeln('Максимальная длина последовательности=',max);
  writeln('Последовательность;');
  write(copy(t,imax,max));
 end;
end.