Ссылочные типы

[senchakv]

Написать логическую функцию Search(T,c,i,j), определяющую, входит ли литера с в текст Т, и, если входит, присваивающую параметрам i и j "координаты" первого вхождения этой литеры (i - номер строки, j - номер позиции в строке).
Вот написал начало, закончить не могу...

const
 n=100;
type
 Ref = ^String;
 Tekst= array [1..N] of Ref;
var t:tekst; f:text; k:byte; c:char;i,j:integer;
procedure Input(var f:text;var t:tekst; var k:byte);
 var i:byte; s:string;
 begin
  reset(f);
  for i:=1 to n do
   begin
    new(t[i]);
    if eof(f) then
     begin
      readln(f,s);
      t[i]:=nil
       end
        else

         begin
          readln(f,s);
          t[i]^:=s;
          end;
    if t[i]<>nil then inc(k);
   end;
   closefile(f);
 end;

Function Search(t:tekst; c:char;i,j:integer):boolean;
 var  b:boolean; o,p:byte;
begin
  b:=false;
  for o:=1 to k do
begin
if b then break;
   for p:=1 to length(t[i]^) do
    if t[o]^[p]=c then
begin
 b:=true;
break;
end;

i:=o;
j:=p;
 search:=b;
 end;
 end;
begin
 assignfile(f,'text.txt');
 input(f,t,k);
 write('Simvol->'); readln(c);
 writeln(Search(t,c,i,j));
 readln
end.

помогите дописать функцию