Задание по типам данных. Списки..нужно выполнить характеристику и условие

program Project2;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils,
  classes;
 
var l1:TStringList;
     l2:TList;
     s:string;
     j,n,i,c,d:integer;
     p:^integer;       const znak='.!?';
 
       function spis(s:string):integer;
   var m,j,i,ns,ks,n:integer;    pred, slovo:string;
 
   begin
   //spis:=length(s);
    j:=1;
while j<=length(s) do
 begin
 
   while (pos(s[j],znak)<>0)and(i<=length(s)) do j:=j+1;
   ns:=j;
   while (pos(s[j],znak)=0)and(i<=length(s)) do j:=j+1;
   ks:=j;
   pred:=copy(s,ns,ks-ns);
 
      {  pred:=pred+''; }
 
   n:=1;  
   for i:=1 to length(pred)-1 do
   begin if(pred[i]<> ' ')and(pred[i+1]=' ') then n:=n+1;
              m:=0;
       if n=2 then m:=m+1; end;     writeln(pred,m);
     end;
    end;
 
     function usl(x:integer):boolean;
      var k,m:integer;
       begin
         k:=0;
         for i := 1 to length(s) do
         begin
           for c:= 0 to d do
             if m mod c=0   then  k:=k+1;
         end;
         if k=2 then
 
            usl:=true
            else
            usl:=false;
        {   if m mod 1 then }
           
           
       end;
 
 
 
 
 
 
    begin
  l1:=TStringList.Create;
  l1.LoadFromFile('input.txt');
  for i:=0 to l1.Count-1 do
    begin
      writeln(l1[i]);
    end;
  l2:=Tlist.Create;
 
   for i:=0 to l1.Count-1 do
    begin
 
    new(p); p^:=spis(l1[i]); l2.Add(p);
   end;
 
    for i:=0 to l2.Count-1 do
     begin
     p:=l2.Items[i];
     write(p^,' ');
     end;
     writeln;
     readln;
 
 
 
  l1.Free;  l2.Free;
end.

while (pos(s[j],znak)<>0)and(i<=length(s)) do j:=j+1;
   ns:=j;
   while (pos(s[j],znak)=0)and(i<=length(s)) do j:=j+1;
   ks:=j;
   pred:=copy(s,ns,ks-ns);

while (pos(s[j],znak)>0) and (j<=length(s)) do j:=j+1; [I] //и никаких "<>" конкретно больше (pos(s[j],znak)>0)[/I]
   ns:=j;
   while (pos(s[j],znak)=0) and (j<=length(s)) do j:=j+1;
   ks:=j;
   pred:=copy(s,ns,ks-ns);