Программа должна открывать уже готовый текстовый файл и найти в нем все элементы (a..z)

uses crt;
var
  m:set of char;
  
procedure FL(var s : string);
          var f : text; i, k : integer; m:set of char;
begin
assign(f, 'newfile.txt');
reset(f);
writeln('ФАЙЛ - (newfile.txt).');
              begin
                   k := 0;
                   while not EOF(f) do
                         begin
                              readln(f, s);
                              m:=['a'..'z'];
                              for i := 1 to length(s) do if s[i] in m then inc(k)
                         end;
                   close(f);
              end;
begin
textbackground(black);
textcolor(lightgreen);
clrscr;
 
 
   procedure FL(s);
          writeln('Элементов (a..z) в файле: ', k);
 
end.

uses crt;
const m=['a'..'z'];
procedure FL(var f:text);
var k : integer;
    c : char;
begin
assign(f, 'newfile.txt');
reset(f);
writeln('ФАЙЛ - (newfile.txt).');
k := 0;
while not EOF(f) do
 begin
  read(f, c);
  if c in m then inc(k)
 end;
close(f);
writeln('Элементов (a..z) в файле: ', k);
end;
var f:text;
begin
textbackground(black);
textcolor(lightgreen);
clrscr;
FL(f);
end.