program Tehtava112(input, output);

type mjoukko = set of char;

var ch: char; merkit: mjoukko;

procedure Toivu(var tdsto: text; toipmerkit: mjoukko);
  var m: char;
      loppu: boolean;
begin
  repeat
    loppu := true;
    if not eof(tdsto) then
      if not(tdsto^ in toipmerkit) then
        begin 
          read(m);  {loppuminen kumoutuu}
          loppu := false;
        end;
  until loppu;
end;

begin  {TESTIPÄÄOHJELMA}
  writeln('anna toipumismerkit (enter lopettaa)');
  merkit := [];
  while not eoln do
    begin
      read(ch);
      merkit := merkit + [ch];
    end;
  writeln('Syötä tavaraa, josta pitäisi toipua');

  Toivu(input, merkit); {input on tiedosto siinä kuin muutkin!}

  if not eof then
    begin
      readln(ch);  
      writeln;
      writeln('Toivuttu merkkiin ', ch);
    end;
end.