functies worden aangewezen, de omvang van de bestanden (bestandsnaam: totaal string): gehele getal; var, de SR:tsearchrec;, het begin. Het resultaat: = 0; als FindFirst (bestandsnaam, faanyfile, SR) = 0 en het begin van de hoge omvang:, =;, findclose (SR); en tot slot, een einde te maken aan de,,,,,