uses crt;
var
   c,i,j: char;
   znaki: set of 'a'..'z';
    prep: set of '!'..'?';
       f:text;
BEGIN
clrscr;
{-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+}
assign(f,'c:\tpascal.71\bin\pas\p1.txt');
reset(f);
{-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+}
textcolor(10);
writeln('press line');
{-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+}
znaki:=[];
prep:=[];
{-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+}
repeat
  read(f,c);
  if
      c in ['a'..'z']
  then
      znaki:=znaki+[c]
  else
  if
      c in['!','.',',','/','*','-','+','=','-','_','\','|','/',';',':','?']
                                                    {armagedon}
  then
      prep:=prep+[c];
until eof(f);
{-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+}
close(f);
{-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+}
textcolor(2);
writeln('latin''s bykvi');
for i:='a' to 'z' do
  if i in  znaki then write(i:2);
{-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+}
writeln;
{-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+}
textcolor(5);
writeln('znaki prepinanija');
for j:='!' to '?' do
  if j in prep then write(j:2);
{-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+}
readkey;
readkey;
END.