Написать комментарии и объяснить задачу

uses crt;
type TFile = record
    Line : string[15]
end;
Var f : file of TFile;
k,p : Integer;
RecCount : integer;
 
Procedure CreateFile;
var i : integer;
    k : char;
    s : TFile;
begin
     i := 1;
   Assign(f,'File.txt');
   ReWrite(f);
   Repeat
         Inc(i);
         Write('input ',i,' line (max length = 15 sym) : ');
         Readln(s.Line);
         write(f,s);
         writeln;
         writeln('Continued? Y/N');
         k := readkey;
   Until Upcase(k) = 'N';
   Close(f);
end;
 
Procedure OutData;
var s: TFile;
    i: integer;
begin
     Assign(f,'File.txt');
     Reset(f);
     I:=0;
     while not eof(f) do
      begin
           read(f,s);
           writeln(i,' line : ',s.Line);
           inc(i);
      end;
     Close(f);
end;
 
Procedure Task(k,p:integer);
var copy,source,next,curr:TFile;
    i,j,pos:integer;
begin
     Assign(f,'File.txt');
     Reset(f);
     seek(f,Filesize(f));
     copy.line := ' ';
     write(f,copy);
     write(f,copy);
     close(f);
 
     Assign(f,'File.txt');
     Reset(f);
 
     seek(f,p-1);
     read(f,copy);
     writeln;
     writeln('text : [',copy.line,'] will"be pasted befor and after line # ',k-1);
     writeln('Press ENTER');readln;
     writeln;
 
     For i := Filesize(f)-1 downto k do
      begin
        seek(f,i-1);
        read(f,source);
        seek(f,i);
        write(f,source);
      end;
 
     seek(f,k-1); write(f,copy);
     For i := Filesize(f)-1 downto k+1 do
      begin
        seek(f,i-1);
        read(f,source);
        seek(f,i);
        write(f,source);
      end;
 
     seek(f,k+1); write(f,copy);
end;
 
BEGIN
Clrscr;
CreateFile;
writeln('===============');
OutData;
writeln('===============');
Write('input position to insert around K : ');readln(K);
Write('input position of source text   P : ');readln(P);
task(k+1,p+1);
writeln('===============');
OutData;
readln;
END.