;
begin
  k := 0;
  j := 0;
  
  for i := 'a' to 'z' do ;
    j := j + 1;
  if mas_alf[i] = s then  begin
    k := k + 1;
    mas_kol[j] := k;
  end;
  //поиск минимума во втором массиве
  min := mas_kol[1];
  for j := 1 to 28 do
    if  (mas_kol[j] < min) and (mas_kol[j] <> 0) then 
      min :=  mas_kol[j];
  writeln(mas_alf[j]);
  writeln(k);
end;

procedure FiletoFile&#40;var f1, f2: text&#41;;
var
  s, sres: string;
  c: char;
  k: integer;
begin
  reset(f1);
  rewrite(f2);
  while( not eof(f1)) do 
  begin
    readln(f1, s);
    Alg(s, c, k);
    writeln(f2, c, k);
  end;
  close(f1);
  close(f2);
end;


var
  f1, f2: text;
  fname1, fname2: string;

begin
  writeln('Введите имя исходного файла: ');
  readln(fname1);
  if FileExists(fname1) = false then 
    writeln('Файл не найден')
  else 
  begin
    writeln('Введите имя результирующего файла:');
    readln(fname2);
    assign(f1, fname1);
    assign(f2, fname2);
    FiletoFile&#40;f1, f2&#41;;
  end;
  
end.