Удалить повторяющиеся строки из входного файла и записать в выходной

const
  p = 1000;
 
type
  t = array[1..p] of string;
 
var
  names: t;
  input, output: TextFile;
  i, l, n, j, num: integer;
  c: char;
  str: string;
 
begin
  assign(input, 'C:\PABCWork.NET\input.txt');
  reset(input);
  assign(output, 'C:\PABCWork.NET\output.txt');
  rewrite(output);
  i := 0;
  l := 0;
  j := 0;
  num := 0;
  while not eof(input) do
    Inc(l);
  while not eof(input) do             //цикл для переписывания входных данных
  begin
    Inc(i);
    readln(input, names[i]);
    writeln(output, names[i]:40);
  end;
  c := chrUnicode(10);
  write(output, 'c', c, c);                //сделали разрыв в файле Output
  for i := 1 to l do
  begin
    str := names[i];
    n := 1;
    for j := (i + n) to l do
    begin
      Inc(n);
      if str = names[j] then
        for num := j to l do
        begin
          names[j] := names[j + 1];
          Dec(l);
        end;
    end;
    writeln(output, names[i]);
  end;
  writeln(names[1]);                 //проверка на заполнение массива
  close(input);
  close(output);
end.

const
  p = 1000;
 
type
  t = array[1..p] of string;
 
var
  names: t;
  input, output: Text;
  i, l, n, j, num: integer;
  c: char;
  str: string;
 
begin
  assign(input, 'input.txt');
  reset(input);
  assign(output, 'output.txt');
  rewrite(output);
  i := 0;
  l := 0;
  j := 0;
  num := 0;
  while not eof(input) do             //öèêë äëÿ ïåðåïèñûâàíèÿ âõîäíûõ äàííûõ
  begin
    Inc(l);;
    readln(input, names[l]);
    writeln(output, names[l]:40);
  end;
  write(output, '----------------'+#13);                //ñäåëàëè ðàçðûâ â ôàéëå Output
  for i := 1 to l do
  begin
    str := names[i];
     n:=1;
    for j := (i + 1) to l do
    begin
 
      if str = names[j] then
       begin
        inc(n);
        for num := j to l do
        begin
          names[j] := names[j + n];
          Dec(l);
        end;
        end;
    end;
    writeln(output, names[i]);
  end;
  writeln(names[1]);                 //ïðîâåðêà íà çàïîëíåíèå ìàññèâà
  close(input);
  close(output);
end.