Як Ви намагалися розібратись?, будь-ласка хід Ваших думок в студію (так, і велкам ту форум українських програмістів)

while not (eof(f)) do
      begin
      readln(f,s);
      if (pos(' '+sl+' ',s)<>0)
         or (copy(s,1,length(sl)+1)=sl+' ')
            or (copy(s,length(s)-length(sl),length(sl)+1)=' '+sl)
               then writeln(g,s);
      end;
Ось ця частина у мене зроблена так, що программа шукає і копіює ті рядки в яких є задане слово, я зміг зробити тільки так, хоча мені і потрібно щоб було навпаки і не по слову, а за заданою буквою.

Код потрібно брати у теги [ code ]

assign(F1,'input.txt');
assign(F2,'output.txt');
reset(F1);
rewrite(F2);
len:=255;
while not(eof(F1)) do
  begin
  readln(F1,str);
  if word_in_str(letter,str) then 
    begin
    writeln(F2,str);
    len:=min(len,len_of_most_short_word(str));
    end;

  end;

close(F1);
close(F2);

1. сам на Паскалі не писав 2 роки, і код зверху написаний мною напряму
2. це написана відповідь на ваше питання, але лише шаблоном, оскільки на мою думку ваше питання мало б містити питання щодо написання тих двох функцій вище, а не тупо умова задачі, тупо за вас програму будуть писати лише за певну винагороду.

Можна в цій темі задати ще питання по іншій программі?

думаю так, якщо вона стосується цієї теми