program luento(input, output, turva); {tehtävä 10.3}
  var turva: text;
      m, n: char;
      loppu: boolean;
begin
      {Syöte tulee aina näppäimistöltä ja päättyy %-merkkiin,
       eof-tilannetta ei oikeastaan voi tulla, mutta varaudutaan
       siihenkin 'varmuuden vuoksi'.}

  rewrite(turva);
  loppu := eof;
  while not loppu do 
    begin
      while not eoln do 
        begin
          read(m);
          if m = '#' then 
            begin
               readln;
               write(  'Oletko varma, että tähänastinen todella ');
               writeln('poistetaan? (k/e)');
               readln(n);
               if n in ['k','K'] then
                 rewrite(turva)
            end
          else if m = '%' then
             loppu := true
          else
             write(turva, m)
        end;
      readln;
      writeln(turva);
      loppu := loppu or eof
    end
end.