delphi

[ноль по Delphi]

помогитепожалуйста сделать задачу:
Одно из возможных представлений «длинного» текста —это разделить его на участки (строки) равной длины и создать массив ссылок на эти строки:
const d=…; {длина строки}
n=...; {максим, число строк}
type строка = array [l..d] of char,
ссылка =^строка;
текст = array [l..n] of ссылка;
описать процедуру удалиmь(Т',i). удаляющую i-ю строку из текста Т;
есть неработающее свое решение:
const d=100; {длина строки}
n=80; {максим, число строк}
var i,j:integer;
type st = array [1..d] of char;
s =^st;
text = array [1..n] of s;
procedure del(var t:text; k:integer);
var n:integer;
t[k^]:nil;
for d:=k to n do
t[k+1]:=t[k];
end;
begin
{ TODO -oUser -cConsole Main : Insert code here }
Writeln('Text');
for i:=0 to d do
for j:=0 to n do
read (s[i,j]);
end;
writeln('nomer')'
readln(k);
del(t,k);
for i:=0 to d do
for j:=0 to n do
Writeln(text);
end;
readln;