Перенос строк текстового файла, начинающихся на заданную букву, в массив A

program module;
uses crt;
type mas=array[1..10] of string;
 
 
procedure perepis(f:text;ch:char;var a:mas);
var s:string;
n:integer;
begin
n:=0;
while not eof(f) do
  begin
readln(f,s);
if s[1]=ch then
     begin
     n:=n+1;
     a[n]:= s;
  writeln(a[n]);
     end;
  end;
end;
 
 
var b:mas;
fname:string;
f:text;
ch:char;
BEGIN
writeln('Введи имя файла, откуда надо прочитать');
readln(fname);
assign(f,fname);
reset(f);
writeln('Введи заданную букву');
readln(ch);
perepis(f,ch,b);
close(f);
END.

program module;
uses crt;
type mas=array[1..10] of string;
procedure perepis(var f:text;ch:char;var a:mas;var n:integer);
var s:string;
begin
n:=0;
while not eof(f) do
 begin
  readln(f,s);
  if s[1]=ch then
   begin
    n:=n+1;
    a[n]:= s;
   end;
  end;
close(f)
end;
procedure print(a:mas;n:integer);
var i:integer;
begin
for i:=1 to n do
writeln(a[i])
end;
 
var b:mas;
    fname:string;
    f:text;
    ch:char;
    n:integer;
BEGIN
writeln('Введи имя файла, откуда надо прочитать');
read(fname);
assign(f,fname);
reset(f);
writeln('Введи заданную букву');
read(ch);
perepis(f,ch,b,n);
print(b,n)
END.