Распечатать все слова четной длины, в которых нет удвоенной буквы Н

uses crt;
var s,sl,sc: string;
    i,k,j,n: integer;
begin
write('s=');
readln(s);
s:=s+' ';
sl:='';
writeln('Слова четной длины без "нн"');
for i:=1 to length(s) do
    if s[i]<>' ' then sl:=sl+s[i]
       else
       begin
       if (length(sl) mod 2=0) and (length(sl)<>0) then
          begin
          n:=0;
          for j:=1 to length(sl)-1 do
              if ((sl[j]='н') and (sl[j+1]='н'))
              or ((sl[j]='Н') and (sl[j+1]='Н'))  then inc(n);
          if n=0 then
             begin
             write (sl,' ');
             inc(k);
             end;
          end;
       sl:='';
       end;
if k=0 then writeln('Таких слов нет');
end.

var a: array [1..6,1..6] of integer;
    b: array [1..6] of real;
    i,j,imin,imax,smin,smax,kmin,kmax: integer;
begin
writeln('Дана матрица');
for i:=1 to 6 do
    begin
    for j:=1 to 6 do
        begin
        a[i,j]:=random(19)-9;
        write(a[i,j]:5);
        end;
    writeln;
    end;
for j:=1 to 6 do
    begin
    imax:=1; imin:=1;
    smax:=0; smin:=0;
    kmax:=0; kmin:=0;
    for i:=1 to 6 do
        begin
        if a[i,j]>a[imax,j] then imax:=i;
        if a[i,j]<a[imin,j] then imin:=i;
        end;
    for i:=1 to 6 do
        begin
        if a[i,j]=a[imax,j] then
           begin
           inc(smax,i);
           inc(kmax);
           end;
        if a[i,j]=a[imin,j] then
           begin
           inc(smin,i);
           inc(kmin);
           end;
        end;
    b[j]:=(smax+smin)/(kmax+kmin);
    end;
writeln('Новый массив');
for j:=1 to 6 do
   write(b[j]:5:2);
readkey
end.