массив ссылок.процедуру Add(T,i,j), добавляющую после i-й строки текста Т копию j-й строки

Const 
N = 100; 
Type Str = string; 
Ref = ^String; 
Tekst= array [1..N] of Ref; 
(если в тексте менее N строк, то последние элементы массива равны nil; в начале 
массива ссылок nil не должно быть) 
Используя данное представление текста, описать процедуру Add(T,i,j), добавляющую после i-й строки текста Т копию j-й строки 
 
Const
  N = 100;
Type Str = string;
  Ref = ^String;
  Tekst= array [1..N] of Ref;
 
var f: text;
    T,y: tekst;
    s: string;
    i,p,k,l:byte;
    m: char;
 
procedure input(var f: text; var T: tekst);
begin
  reset(f);
  i:=1;
  while not eof(f) do
  begin
      readln(f,s);
      new(T[i]);
      if s<>'' then T[i]^:=s else t[i]:=nil;
      inc(i);
  end;
  close(f);
end;
 
procedure output(var t: tekst);
var i:byte;
begin
  for i:=1 to n do
  if t[i]<> nil then writeln(T[i]^);
end;
 
 
procedure Add(var t:tekst;k,l:integer);
var Tstr:ref;
begin
for i:=1 to n do
begin
t[k+l]:=t[l];;
 
end;
end;
 
 
 
begin
  assign(f,'182.txt');
  input(f,t);
  output(t);
  writeln('k=');
  readln(k);
  writeln('l=');
  readln(l);
  Add(t,k,l);
  output(t);
  readln;
end.