uses crt;
var f,l:text;
name,logn:string;
c,b:char;
k:integer;
begin
   clrscr;
   write('Введите имя файла для просмотра: ');
   readln (name);
   write('Введите имя файла для вывода данных: ');
   readln(logn);
   assign(l,logn);
   rewrite(l);
   assign(f,name);
   c:=chr(1);
   while ord(c)<255 do begin
       gotoxy(1,4);
       writeln(ord(c),'из 255 символов проверено: ');
       k:=0;
       reset(f);
       repeat
          read(f,b);
          if c=b then k:=k+1
       until EOF(f);
       writeln(l,c,' - ',k);
       c:=chr(ord(c)+1);
       close(f);
  end;
  close(l);
end.