Дано 2 предложения. Найти одиноковое слово.

uses CRT;
 
type
  ENTRY = record
    idx : byte;
    len : byte;
  end;
 
var s, s2 : string;
    arr_first,
    arr_second       : array [1..1024] of ENTRY;
    arr_first_count,
    arr_second_count : integer;
    q, w, c          : integer;
    
 
procedure SearchWords;
var len, i  : integer;
    temp    : ENTRY;
 
begin
  {ищем слова и записываем в массив индекс найденного слова и его длину}
  len             := length(s);
 
  arr_first_count := 0;
  i               := 1;
  {первое предложение}
  while (i<=len) and (s[i]<>'.') do
  begin
    temp.idx := 1;
    temp.len := 1;
 
    {обрабатываем пробелы}
    while (s[i]=' ') and (s[i]<>'.') and (i<=len) do Inc(i);
    temp.idx := i;
 
    if i>=len then break;
 
    {мы нашли слово}
    temp.len := i;
    while (s[i]<>' ') and (s[i]<>'.') and (i<=len) do Inc(i);
    temp.len := i - temp.len;
 
    {добавляем информацию о найденному слове в массив}
    Inc(arr_first_count);
    arr_first[arr_first_count] := temp;
  end; {while i<len}
 
  if s[i]='.' then Inc(i);
 
  arr_second_count := 0;
  {второе предложение}
  while (i<=len) and (s[i]<>'.') do
  begin
    temp.idx := 1;
    temp.len := 1;
 
    {обрабатываем пробелы}
    while (s[i]=' ') and (s[i]<>'.') and (i<=len) do Inc(i);
    temp.idx := i;
 
    if (i>=len) or (s[i]='.') then break;
 
    {мы нашли слово}
    temp.len := i;
    while (s[i]<>' ') and (s[i]<>'.') and (i<=len) do Inc(i);
    temp.len := i - temp.len;
 
    {добавляем информацию о найденному слове в массив}
    Inc(arr_second_count);
    arr_second[arr_second_count] := temp;
  end; {while i<len}
end;
 
function cmp2strings (s1_idx : byte; s2_idx : byte; len : byte) : Boolean;
var i : integer;
begin
  cmp2strings := True;
  dec(len);
  for i := 0 to len do
    if s[s1_idx+i] <> s[s2_idx+i] then
    begin
      cmp2strings := False;
      break;
    end;
 
end;
 
begin
  ClrScr;
  s := '   The first   line of the text    must contain  many spaces.    tHe second  line  text   .';
  WriteLn('Ishodnaya stroka:');
  WriteLn('"',s,'"');
  WriteLn;
 
  SearchWords;
 
  c := 0;
 
  for q := 1 to arr_first_count do
    for w := 1 to arr_second_count do
      if (arr_first[q].len = arr_second[w].len) AND (cmp2strings(arr_first[q].idx, arr_second[w].idx, arr_first[q].len)) then
      begin
        s2 := Copy(s, arr_first[q].idx, arr_first[q].len);
        WriteLn('Slovo "',s2,'" soderjitsya v oboih predlojeniah.');
        Inc(c);
      end;
 
 
  if c=0 then
    WriteLn('Net povtoryajushihsya slov!');
 
  ReadLn;
 
end.