тип объект, паскаль

[лололо]

тип объект содержит:
1) поля: массив строк и его размер;
2) методы: введение массива, вывод массива, сортировка строк по алфавиту, нахождения всех строк, содержащих заданный подстроку, и образование из них нового текста
Реализовать экземпляр этого типа и выполнить над ним все возможные действия.
почему не работает?

uses crt;
const n=20;

type ar=array[1..N] of string;

    tekst=object

    {fields}
    st:ar;
    k:integer;

    {methods}
    procedure inp;
    procedure outp;
    procedure sort;
    procedure find;
    procedure new;

end;

procedure tekst.inp;
var i:integer;
begin
     writeln('k-kst strok=');
     readln(k);
     writeln('enter stroky: ');
     for i:=1 to k do
         readln(st[i]);
         if ((st[i]='the break') and (i=k))
     then writeln('vvedena poslednay stroka massiva ST');
end;

procedure tekst.outp;
var i:integer;
begin
     for i:=1 to k do
     begin
         writeln(st[i]);
     end;
end;

procedure tekst.sort;
var i,j:integer;
    l:string;
begin
     for i:=1 to k do
     for j:=k downto i
     do if st[j-1]>st[j]
     then begin
     l:=st[j-1];
     st[j-1]:=st[j];
     st[j]:=l;
     end;
     for i:=1 to k do
     writeln(st[i]);
end;

procedure tekst.find;
var subStr,Str:string;
    p,i:integer;
begin
     writeln('enter SubStr ');
     readln(SubStr);
     for i:=1 to k do
     begin
     p:=pos(substr,st[i]);
     if p<>0 then writeln('SubStr is in ',i,' stroke');

     end;

end;

var text:tekst;
begin
clrscr;

text.inp;
text.outp;
text.sort;
text.find;
readkey;
end.