Определить и вывести в результирующий файл английскую букву, встречающуюся в строке реже всего

Program stroki;
uses crt;
 
Procedure Alg(s: string; var c:char; k:integer);
var  mas_alf:array ['a'..'z'] of integer;
     mas_kol:array [1..28] of integer;
     j, min:integer;
     i:integer;
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(var f1,f2:text);
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(f1,f2);
    end;
 
END.