Описать функцию или процедуру, которая по файлу f, все элементы которого различны, строит соответствующее дерево t

[tina22222]

Привет всем, помогите пожалуйста разобраться с задачкой
Задание было такое:
Описать функцию или процедуру, которая по файлу f, все элементы которого различны, строит соответствующее дерево t
Просто у меня подобная задача, а я с этой никак разобраться не могу(
помогите пожалуйста...
Это тело:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  Unit1 in 'Unit1.pas';
  var l:int;

begin
 failik(l);
Vivod(d, 0);//вывод структуры дерева
readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.

Это модуль:

unit Unit1;

interface

Type  Int = integer;
      svd = ^zvd;
      zvd = record
              key: Integer;
              info: Int;
              Left: svd;
              Right: svd;
      end;
Var D:svd;



  function failik(l:int): integer;// файл
  Procedure Add(k: integer; {ключ }i:integer;{информация звена}var d:svd{указатель});
  Procedure Vivod(d:svd; L:integer);//вывод структуры дерева



implementation



Procedure Add( k: integer; {ключ  звена}
                 i:int;{информация звена}
                 var d:svd{указатель});
  begin
    if d=nil then
            begin
              new(d);
              d^.key:=k;
              d^.info:=i;
              d^.Left:=nil;
              d^.Right:=nil;
            end
        else
    if k<d^.key then Add(k,i,d^.Left)
        else
    if k>d^.key then Add(k,i,d^.Right);
  end;



 Procedure Vivod(d:svd; L:integer);//вывод  дерева
 var i:integer;
 begin

   if d<>nil then
      begin
        Vivod(d^.Right,L+1);
        for I := 1 to L do write('       ');
        writeln('*',d^.key,'[',d^.info,']');
        Vivod(d^.Left,L+1);
      end;
 end;




function failik(l:int): integer;// файл
var f:text;
    per, zn,i,j,k:integer;
     z:array [0..11,0..11] of integer;
     c:char;


begin
assign(f,'file.txt');
reset(f);

   for i := 0 to 11 do
    begin
       for j := 0 to 11 do
        read(f,z[i,j]);
      Add( z[0,i],z[1,i],D);
    end;

close(f);

end;

end.