e

unit procedury;
interface
  type
    Tosoba = record
    imie: String[16];
    nazw: String[16];
    pesel: Array [0..10] of Byte;
    end;
    const
  n = 1000;
      var
    TTablica: Array[0..(n-1)] of Tosoba;
  procedure wczytaj(fname: String; inputTable: Array of Tosoba);




implementation
    procedure wczytaj(fname: String; inputTable: Array of Tosoba);
    var
      f: File of Tosoba;
         begin
             {$I-}
             AssignFile(f, fname);
             Reset(f);
             {$I+}
             if IOResult<>0 then
                begin
                  while (not eof) do
                      begin
                         Read(f,inputTable);
                      end;
                end;
             CloseFile(f);
         end;

end.