Найти слова в тексте начинающиеся на первую букву, введенной в поле ввода фамилии

Var s,s1,s2:String;
    k:byte;
Begin
    write('Введите свою фамилию: ');readln(s);
    write('Введите текст: ');readln(s1);
    s1:=s1+' ';
    While Pos(' ',s1)>0 do
    Begin
      s2:=Copy(s1,1,Pos(' ',s1)-1);
      Delete(s1,1,Pos(' ',s1));
      if s[1]=s2[1] then 
      Begin
        writeln(s2);
        inc(k);
      End;
    End;
    writeln('Слов начинающихся на букву ',s[1],' = ',k);
    readln;
End.

const
  sn=[' ',',','.',';',':','!','?'];
 
procedure countwords(var surname,arg:string;var count:integer);
var sl:string;i:integer;
begin
  sl:='';
  if not (arg[length(arg)] in sn) then
    arg:=arg+' ';
  for i:=1 to length(arg) do
    if not (arg[i] in sn) then
      sl:=sl+arg[i]
    else begin
      if sl[1]=surname[1] then begin
        inc(count);
        writeln(sl);
      end;
      sl:='';
    end;
end;
 
var
  surname,s:string;
  f:text;count:integer;
 
begin
  writeln('Введите вашу Фамилию');
  readln(surname);
  assign(f,'C:\textin.txt');
  reset(f);
  count:=0;
  while not eof(f) do begin
    readln(f,s);
    countwords(surname,s,count);
  end;
  close(f);
  writeln(count);
  readln;
end.

const
  sn=[' ',',','.',';',':','!','?'];
  
procedure countwords(var surname,arg:string;var count:integer);  // Процедура счета слов (программа вычисляет кол-во слов в тексте)
var sl:string;
    i:integer;
begin
  sl:=''; //пустая строчка
  if not (arg[length(arg)] in sn) then //если не знак препенания
    arg:=arg+' '; //добавить пробел?
  for i:=1 to length(arg) do //от первого до последнего символа слова
    if not (arg[i] in sn) then //если не знак препенания
      sl:=sl+arg[i] //собираем слово  ?
    else begin //появился знак препинания, слово закончилось
      if sl[1]=surname[1] then begin //если слово совпадает с первой буквой фамилии
        inc(count); // count+1
        writeln(sl);
      end;
      sl:=''; //обнуляем собранное слово
    end;
end;
 
procedure countwords2(var surname2,arg:string;var count2:integer);  // ЗАМЕНИТЬ  surname2! count2!
var sl:string;
    i:integer;
begin
  sl:=''; //пустая строчка
  if not (arg[length(arg)] in sn) then //если не знак припенания
    arg:=arg+' '; //добавить пробел?
  for i:=1 to length(arg) do //от первого до последнего символа слова
    if not (arg[i] in sn) then //если не знак припенания
      sl:=sl+arg[i] //собираем слово  ?
    else begin
      if sl[1]=surname2 then begin //ЗАМЕНИТЬ surname2!
        inc(count2);  //ЗАМЕНИТЬ count2!
        writeln(sl);
      end;
      sl:='';
    end;
end;
 
var
  s,surname2,surname:string;      // объявление переменных
 
  f:text;
  count,summ,count2:integer;
 
begin
 
  writeln('Введите вашу Фамилию'); // Ввод данных
  readln(surname);
  assign(f,'F:\in.txt'); // Открытие
  reset(f);
  count:=0;
  
  //Выполняем задачу программы для заглавной буквы
  while not eof(f) do begin
    readln(f,s);
    countwords(surname,s,count);
  end;
  
  surname[1]:=LowCase(surname[1]); //Заменяем первую букву аналогичной строчной
  surname2:=surname[1]; //создаю переменную для второй функции (строчная буква)
  
   //Выполняем задачу программы для строчной буквы
  while not eof(f) do begin
    readln(f,s);
    countwords2(surname2,s,count2);
  end;
 
  close(f);
  
  summ:=count+count2; //суммируем кол-во строчных и кол-во заглавных
  
  writeln('Количество слов =', ' ',summ);
   
end.

const
  sn=[' ',',','.',';',':','!','?'];
 
function checkletter(var s1,s2:string):boolean;
begin
  checkletter:=false;
  if (s1[1]=s2[1]) or (s1[1]=upcase(s2[1])) or (s1[1]=lowcase(s2[1])) then
    checkletter:=true;
end;
 
procedure countwords(var surname,arg:string;var count:integer);
var sl:string;i:integer;
begin
  sl:='';
  if not (arg[length(arg)] in sn) then
    arg:=arg+' ';
  for i:=1 to length(arg) do
    if not (arg[i] in sn) then
      sl:=sl+arg[i]
    else begin
      if checkletter(surname,sl) then begin
        inc(count);
        writeln(sl);
      end;
      sl:='';
    end;
end;
 
var
  surname,s:string;
  f:text;count:integer;
 
begin
  writeln('Введите вашу Фамилию');
  readln(surname);
  assign(f,'C:\textin.txt');
  reset(f);
  count:=0;
  while not eof(f) do begin
    readln(f,s);
    countwords(surname,s,count);
  end;
  close(f);
  writeln(count);
end.