Найти пару наиболее далеко удаленных слов заданной длины

uses crt;
const rz=[' ',',','.'];//разделители слов, можно добавить в зависимости от текста
var s:string; //строка
    a:array[1..200] of string;//массив слов
    n,i,j,k,p,mx,imx,jmx:byte;
begin
writeln('Введите предложение');
readln(s);
s:=' '+s; //добавим пробел в начало для удобства
n:=0;//количество слов
i:=2;//начнем со 2 символа, 1 пробел
while i<=length(s) do
if not(s[i]in rz)and(s[i-1]in rz) then //если не разделитель, а перед ним разделитель
 begin
  inc(n); //новое слово
  a[n]:='';//будем его составлять
  j:=i;
  while (j<=length(s))and not(s[j] in rz) do//пока не разделитель
   begin
    a[n]:=a[n]+s[j];
    inc(j);
   end;
  i:=i+length(a[n]); {перешагнем через слово}
 end
else inc(i);{пропускаем разделители}
mx:=0;
for i:=1 to n-1 do
for j:=i+1 to n do
if length(a[i])=length(a[j]) then
 begin
  k:=0;
  for p:=1 to length(a[i]) do
  if a[i][p]<>a[j][p] then inc(k);
  if k>mx then
   begin
    mx:=k;
    imx:=i;
    jmx:=j;
   end;
 end;
if mx=0 then write('Нет слов одинаковой длины')
else write('Пара наиболее далеко удаленных слов: ',a[imx],',',a[jmx]);
end.

not(s[j] in rz)

s[j]<>' '

uses crt;
var s:string; //строка
    a:array[1..200] of string;//массив слов
    n,i,j,k,p,mx,imx,jmx:byte;
begin
writeln('Введите предложение');
readln(s);
s:=' '+s; //добавим пробел в начало для удобства
n:=0;//количество слов
i:=2;//начнем со 2 символа, 1 пробел
while i<=length(s) do
if (s[i]<>' ')and(s[i-1]=' ') then //если не пробел, а перед ним пробел
 begin
  inc(n); //новое слово
  a[n]:='';//будем его составлять
  j:=i;
  while (j<=length(s))and (s[j]<>' ') do//пока не пробел
   begin
    a[n]:=a[n]+s[j];
    inc(j);
   end;
  i:=i+length(a[n]); {перешагнем через слово}
 end
else inc(i);{пропускаем разделители}
mx:=0;
for i:=1 to n-1 do
for j:=i+1 to n do
if length(a[i])=length(a[j]) then
 begin
  k:=0;
  for p:=1 to length(a[i]) do
  if a[i][p]<>a[j][p] then inc(k);
  if k>mx then
   begin
    mx:=k;
    imx:=i;
    jmx:=j;
   end;
 end;
if mx=0 then write('Нет слов одинаковой длины')
else write('Пара наиболее далеко удаленных слов: ',a[imx],',',a[jmx]);
end.

var
  s: string;
  i, pmin, pmax, p, d: integer;
begin
  writeln('Введите строку из слов, разделённых пробелами:');
  readln(s);
  s := ' ' + s + ' ';
  write('Введите длину слова: ');
  readln(d);
  pmin := 0;
  pmax := 0;
  p := 2;
  for i := 2 to length(s) do
    if (s[i] <> ' ') and (s[i+1] = ' ') and (i - p + 1 = d) then
      if pmin = 0 then pmin := p
      else pmax := p
    else
      if (s[i] <> ' ') and (s[i-1] = ' ') then p := i;
  if pmin + pmax = 0 then write('Строка не содержит слов заданной длины')
  else
    if pmax = 0 then write('В строке только одно слово заданной длины: ', copy(s, pmin, d))
    else
      begin
        writeln('Наиболее удалённые слова заданной длины:');
        write(copy(s, pmin, d), ' и ', copy(s, pmax, d))
      end;
  readln
end.