Убрать из текста повторяющиеся символы. В тексте несколько строк.

Program n4;
var
s:string;
m:set of char;
i:integer;
begin
writeln('enter text');
readln(s);
i:=1;
repeat
if s[i] in m then
delete(s,i,1)
else
begin
include(m,s[i]);
inc(i)
end
until
i>length(s);
writeln('out text:');
writeln(s);
readln
end.

uses
  CRT;
 
var
  s: string;
  m: set of char;
  i,n,j: integer;
 
begin
  write('Введите кол-во строк: ');
  readln(n);
  for j := 1 to n do
  begin
    write('Введите ',j,'-ю строку: ');
    readln(s);
    i := 1;
    repeat
      if s[i] in m then
        delete(s, i, 1)
      else
      begin
        include(m, s[i]);
        inc(i)
      end
    until
    i > length(s);
    writeln('out text:');
    writeln(s);
  end;
  readln
end.

Uses CRT;
 
var
  s: string;
  m: set of char;
  i: byte;
  FileIn,FileOu:text;
begin
  Assign(FileIn,'D:\In.txt');
  Assign(FileOu,'D:\Ou.txt');
  reset(FileIn);
  rewrite(FileOu);
  While not eof(FileIn) do
  begin
    readln(FileIn,s);
    i := 1;
    m:=[];
    repeat
      if s[i] in m then
        delete(s, i, 1)
      else
      begin
        include(m, s[i]);
        inc(i)
      end
    until i > length(s);
    writeln(FileOu,s);
  end;
  Close(FileIn);
  Close(FileOu);
  readln
end.