Удаление дубликатов строк

[Просто лис]

Var i,j,flag:shortint; a,b:text; c:array[1..30] of string;  d:string;
begin
assign(a,'ALL2.txt');
reset(a);
assign(b,'ALL3.txt');
rewrite(b);
i:=1;
while not eof(a) do
begin
flag:=0;
readln(a,d);
c[i]:=d;
for j:=1 to i do
begin
if (c[i]=c[j]) and (i<>j)
then begin flag:=1; break; end;
end;
if flag=0 then begin
writeln(b,c[i]);
inc(i);
end;
end;
readln;
end.