Не могу найти ошибку в массиве

program zadacha5_15;
type
 TWord = record
    Pos1, Pos2 : Integer;
  end;
const
  N = 100;
  D = ['.', ',', ':', ';', '!', '?', '-', ' ', #9, #10, #13];
var
  S : String;
  ArrW : array[1..N] of TWord;
  i, j, k, Pos1, Len, LenW, LenWMax : Integer;
begin
  repeat
    Writeln('Zadayte stroku:');
    Readln(S);
    Len := Length(S);
    LenW := 0;
    LenWMax := 0;
    Pos1 := 0;
    j := 0;
    for i := 1 to Len do begin
if S[i] in D then Continue;
     if (i = 1) or (S[i - 1] in D) then Pos1 := i;
    if (i = Len) or (S[i + 1] in D) then begin
        LenW := i - Pos1 + 1;
       if LenW > LenWMax then begin
          j := 1;
          LenWMax := LenW;
          ArrW[j].Pos1 := Pos1;
          ArrW[j].Pos2 := Pos1 + LenW - 1;
        end else if LenW = LenWMax then begin
          j := j + 1;
          ArrW[j].Pos1 := Pos1;
          ArrW[j].Pos2 := Pos1 + LenW - 1;
        end;
      end;
    end;
for k := 1 to j do
      for i := ArrW[k].Pos1 to ArrW[k].Pos2 do
        if S[i] in ['ж', 'Ж', 'ч', 'Ч', 'ш', 'Ш', 'щ', 'Щ']
        then s[i] := '&' ;
     Writeln('Rezultat:');
    Writeln(S);
 Writeln('Povtorit - Enter, vykhod - lyuboy simvol + Enter.');
    Readln(S);
  until S <> '';
end.

const sp=['ж', 'Ж', 'ч', 'Ч', 'ш', 'Ш', 'щ', 'Щ'];
var ar:array[1..100] of string[80];
    n, i, j, k, max : integer;
    s:string;
begin
repeat
write('Введите количество слов от 2 до 100 n=');
readln(n);
until n in [2..100];
writeln('Введите ',n,' русских слов длиной до 80 символов , содержащие шипящие буквы');
max:=0;
for i:=1 to n do
 begin
  readln(ar[i]);
  k:=1;
  for j:=1 to length(ar[i]) do
  if ar[i][j] in sp then inc(k);
  if k>max then
   begin
    max:=k;
    s:=ar[i];
   end;
 end;
if max=0 then write('Нет слов с шипящими буквами')
else
 begin
  writeln('Максимальное количество шипящих в слове ',s
  );
  for i:=1 to length(s) do
  if s[i] in sp then s[i]:='&';
  writeln('Замена шипящих');
  write(s);
 end;
end.