Однонаправленные линейные списки (доделать код) - Turbo Pascal

program zad1_5;
 
{uses Strings;}
 
const
   sIF        = 'dan.inp.txt';
   sOF        = 'output.txt';
   num_of_ppl = 10;
 
type
    ptrKey = ^Key;
    Key = record
        data : string[47];
        next : ptrKey;
    end;
 
var
   pCur, pBegin, pEnd : ptrKey;
   ifd, ofd : Text;
   str : string[47];
   Kol: array [1..10] of integer;
   i,j,k,l :integer;

{ PROCEDURES }
{ create Linked List }
procedure create_LL(str : string);
begin
     new(pBegin);
     pEnd := nil;
     pBegin^.data := str;
     pBegin^.next := pEnd;
     pCur := pBegin;
end;
 
{ insert new element into Linked List }
procedure insert_element(var pCur : ptrKey; str : string);
var
   Aux : ptrKey;
begin
   new(Aux);
   Aux^.data := str;
   Aux^.next := pCur^.next;
   pCur^.next := Aux;
   pCur := Aux;
end;
 
{ free mem userd by Linked List }
procedure free_mem_LL(var pBegin : ptrKey);
var
   i : integer;
   pCur : ptrKey;
begin
    pCur := pBegin;
 
    i := 0;
    while pCur <> nil do
    begin
         dispose(pCur);
         pCur := pCur^.next;
         inc(i);
    end;
end;
{ !PROCEDURES }

Begin
   assign(ifd, sIF);
   reset(ifd);
   assign(ofd, sOF);
   rewrite(ofd);

   { fill array by data from file }
   writeln(ofd, 'Input data:');
   i := 1;
   readln(ifd, str);
   writeln(ofd, str);
   create_LL(str);
   while not EOF(ifd) do
   begin
        readln(ifd, str);
        writeln(ofd, str);
        insert_element(pCur, str);
        inc(i);
   end;
 
   writeln(ofd);
   close(ifd);
 
pCur := pBegin;  
For i:=1 to 9 do
begin
for l:=1 to 10-i do
begin
If
Copy(pCur^.data[i],22,10)=Copy(pCur^.data[i+l],22,10)
then begin
Kol [i]:= Kol[i] +1;
pCur^.data[i+l]:='0';
end;
end;
end;
For i:=1 to 10 do
begin
If pCur^.data[i] <> '0' then
begin
Write (ofd,copy(pCur^.data[i],22,10));
Write (ofd,' ','-',' ' ,Kol[i]+1);
Writeln(ofd) ;
end;
end;
 
   close(ofd);
   
End.