program Tehtava113(input, output, teksti);

  var teksti: text;
      merkit: set of char;
      m: char;
      nimi: varying [20] of char;

  {liitetään ulkoinen nimi tiedostomuuttujaan Sunin tavalla}

begin
   write('Tutkittava tiedosto: ');
   readln(nimi);
   reset(teksti, nimi);
   merkit := [];
   while not eof(teksti) do
     begin
       read(teksti, m);
       merkit := merkit + [m];
     end;
   writeln;
   writeln('Tiedostossa ', nimi, ' on seuraavia kirjaimia:');
   for m := 'A' to 'Z' do
      if m in merkit then
        write(m);
   if 'Å' in merkit then write('Å');
   if 'Ä' in merkit then write('Ä');
   if 'Ö' in merkit then write('Ö');
   writeln;
   for m := 'a' to 'z' do
      if m in merkit then
        write(m);
   if 'å' in merkit then write('å');
   if 'ä' in merkit then write('ä');
   if 'ö' in merkit then write('ö');
   writeln;
end.