Создание списка терминов текстового файла

uses System.Io;
var
  i:integer;
  sout,t:string;
begin
  foreach s:string in &File.ReadAllLines('input.txt',System.Text.Encoding.Default) do begin
    i:=i+1;
    t:=string.Join(' ',s.Split(',. "?!:;-'.ToCharArray()).where((st:string)->st=uppercase(st)));
    if t<>'' then sout:=sout+i.ToString+','+t+NewLine;
  end;  
  &File.WriteAllText('output.txt',sout);
end.

var
  k,l:integer;
  s,sout,t:string;
  fin,fout:text;
begin
  assign(fin,'input.txt');  reset(fin);
  assign(fout,'output.txt');  rewrite(fout);
  while not eof(fin) do begin
    readln(fin,s);
    s:=s+' '; t:='';sout:='';k:=k+1;
    for l:=1 to length(s) do  if pos(s[l],',. "?!:;-')=0 then t:=t+s[l] else begin
      if (t<>'') and (t=uppercase(t)) then sout:=sout+t+' ';
      t:='';
    end;  
    if sout<>'' then writeln(fout,inttostr(k)+','+sout);
  end;
  close(fin);
  close(fout);
end.

function wupcase(s:string):string;//перевод в верхний регистр только букв
var
  i:integer;
  sr:string;
begin
  sr:='';
  for i:=1 to length(s) do if s[i] in ['а'..'я','А'..'Я','ё','Ё','a'..'z','A'..'Z'] then sr:=sr+upcase(s[i]);
  wupcase:=sr;
end;
var
  k,l:integer;
  s,sout,t:string;
  fin,fout:text;
begin
  assign(fin,'input.txt');  reset(fin);
  assign(fout,'output.txt');  rewrite(fout);
  while not eof(fin) do begin
    readln(fin,s);
    s:=s+' '; t:='';sout:='';k:=k+1;
    for l:=1 to length(s) do  if pos(s[l],',. "?!:;-')=0 then t:=t+s[l] else begin
      if (length(t)>1) and (t=wupcase(t)) then sout:=sout+t+' ';//length(t) рассматриваем слова длинее 1 буквы
      t:='';
    end;  
    if sout<>'' then writeln(fout,inttostr(k)+','+sout);
  end;
  close(fin);
  close(fout);
end.

function wupcase(s: string): string;//перевод в верхний регистр только букв
var
  i: integer;
  sr: string;
begin
  sr := '';
  for i := 1 to length(s) do if s[i] in ['а'..'я', 'А'..'Я', 'ё', 'Ё', 'a'..'z', 'A'..'Z'] then sr := sr + upcase(s[i]);
  wupcase := sr;
end;
 
var
  k, l: integer;
  s, sout, t: string;
  fin, fout: text;
 
begin
  assign(fin, 'input.txt');  reset(fin);
  assign(fout, 'output.txt');  rewrite(fout);
   writeln (fout, '№ абзаца|    Термин');
   writeln (fout, '__________________________');
  while not eof(fin) do 
  begin
    readln(fin, s);
    s := s + ' '; t := '';sout := '';k := k + 1;
    for l := 1 to length(s) do  
      if pos(s[l], ',. "?!:;-') = 0 then t := t + s[l] else begin
        if (length(t) > 1) and (t = wupcase(t)) then sout := sout + t + ' ';//length(t) рассматриваем слова длинее 1 буквы
        t := '';
      end;  
    if sout <> '' then writeln(fout, inttostr(k) + '       ' + '|'+ sout);
  end;
  close(fin);
  close(fout);
end.