Удаление повторяющихся слов из одномерного массива- Pascal(Паскаль)

uses crt;

const
  n = 8;

type
  M_st = array [1 .. n] of string[20];

var
  a: M_st;
  s: M_st;
  i, j, l: integer;
  flag: boolean;

begin

  writeln('Vvedite 8 slov');
  for i := 1 to n do
    readln(a[i]);
  writeln;

  j := 1;
  for i := 1 to n do
  begin
    flag := true;
    for l := 1 to j do
      if s[l] = a[i] then
        flag := false;
    if flag = true then
    begin
      s[j] := a[i];
      j := j + 1
    end;
  end;

  for i := 1 to j - 1 do
    write(s[i], ' ');
  writeln;
  readln;
  writeln;

end.