В заданном предложении найти слово,которое является обращением другого слова — Pascal(Паскаль)

uses crt;

var
  s, s1, strok, strok1: string;
  a, st2: array [1 .. 100] of string;
  ch: char;
  j, i, l, k, n, d, p, indicator: integer;

begin
  clrscr;

  write('vvedite predlozhenie: ');
  read(s);
  s := s + ' ';
  l := length(s);
  j := 0;
  s1 := '';

  indicator := 0;
  for i := 1 to l do
  begin
    ch := s[i];

    if (ch = ' ') then
    begin
      j := 1 + j;
      a[j] := s1;
      s1 := '';
    end
    else
      s1 := s1 + s[i];
  end;
  for i := 1 to j do
  begin
    strok := a[i]; { inversia }

    n := length(strok);
    d := n;
    for p := 1 to n div 2 do
    begin
      ch := strok[i];
      strok[i] := strok[d]; { inversia }
      strok[d] := ch;
      d := d - 1;
    end;

    for k := i + 1 to j do
    begin
      if strok = a[k] then
        indicator := indicator + 1;
    end;
  end;
  if (indicator > 0) then
    writeln('EST')
  else
    writeln('NET')

end.