[Pascal] Описать функцию IntFileSize

[Катуха]

Помогите доделать программу,нужно,чтобы файл читался обязательно ПОСИМВОЛЬНО и подсчет информации НЕ через процедуру FileSize. Очень надо,пожалуйста.

Описать функцию IntFileSize(Name) целого типа, возвращающую размер файла целых чисел с именем Name. С помощью этой функции определить размер 3-х файлов с данными именами.

Вот примерное содержание программы:

uses crt;
var
size : Longint;
function IntFileSize(name:string):longint;
Var
f: file of byte;
begin
{$I-}
Assign(f,name+'.txt');
Reset(f);
{$I+}
if IOResult <> 0 then
begin
Writeln('-1');
readkey;
halt;
end
else
begin
IntFileSize:= FileSize(f);
end;
Close(f);
end;
Begin
clrscr;
Writeln('File size in bytes: ',IntFileSize('name0'));
readkey;
End.

[Sazary]

uses crt;
var
size : Longint;
function IntFileSize(name:string):longint;
 Var
  f: file of byte;
  c: byte;
  l : longint;
 begin
 {$I-}
 Assign(f,name+'.txt');
 Reset(f);
 {$I+}
 if IOResult <> 0 then
  begin
  Writeln('-1');
  readkey;
  halt;
  end
 else
  begin
  l:=0;
  while not eof(f) do
   begin
   read(f,c);
   inc(l);
   end;
  IntFileSize:=l;
  end;
 Close(f);
 end;

Begin
clrscr;
Writeln('File size in bytes: ',IntFileSize('name0'));
readkey;
End.

Пожалуйста, в следующий раз заключайте код в тег CODE.

[Катуха]

Спасибо очено-очень преогромнейшее!!!!!!!!!