Расчет числа строк в типизированном файле

[1234]

Здравствуйте. Подскажите, пожалуйста, как расчитать число строк в файле с помощью команды filesize
Например, есть файл типа integer со следующим содержимым:

1
1
1
1

Как сделать чтобы комманда size:= filesize(f);
Вернула значение 4?
Если я ввожу в столбик больше одной цифры, выдаются какие-то странные и неверные значения..

[Alter]

Вот пример работы с типизированным файлом:

Function Cou(Pat :String):Integer;
Var F :File of Integer;
begin
 Cou := 0;
  Assign(F, Pat);
  Reset(F);
 Cou := FileSize(F);
  Close(F);
end;

Procedure WritInt(Pat :String);
Var F :File of Integer; N, N0 :Integer;
begin
 randomize;
  Assign(F, Pat);
  ReWrite(F);
 N0 := Random(50)+10;
  WriteLn('Zapisanno v file, ', N0, ' zapisey.');
 For N:=1 To N0 Do
 Write(F, N0);
  Close(F);
end;

Var
    S :string;
    d :integer;
begin
  Write('Viberite deystvie!_(1-Create File; 2-Kollichestvo zapisey: ) ');
  Readln(d);
 if (d=1)or(d=2) then
 begin
  Write('Vvedite imya fayla_( NAPRIMER: tex.dat ) ');
  Readln(s);
 end;
  CASE d OF
 1: WritInt(S);
 2: WriteLn('Kollichestvo zapisey v file "', S, '"=', Cou(S));
  END;
 readln;
end.

Если в текстовом файле, то можно напрмер вначале записывать колличество элементов в файле, и исходя из этого считывать(если так раззрешенно у вас).
--------------------------------------------------------------------------
Для текстового только так:

Function Cou(Pat :String):Integer;
Var F :Text; I, Cnt :Integer;
begin
 Cou := 0;
 Cnt := 0;
  Assign(F, Pat);
  Reset(F);
 While NOT EOF(F) DO
 begin
  ReadLn(F, I);
  Cnt := Cnt + 1;
 end;
  Cou := Cnt;
  Close(F);
end;

Procedure WritInt(Pat :String);
Var F :Text; N, N0 :Integer;
begin
 randomize;
  Assign(F, Pat);
  ReWrite(F);
 N0 := Random(50)+10;
  WriteLn('Zapisanno v file, ', N0, ' zapisey.');
 For N:=1 To N0 Do
 WriteLn(F, N);
  Close(F);
end;

Var
    S :string;
    d :integer;
begin
  Write('Viberite deystvie!_(1-Create File; 2-Kollichestvo zapisey: ) ');
  Readln(d);
 if (d=1)or(d=2) then
 begin
  Write('Vvedite imya fayla_( NAPRIMER: tex.dat ) ');
  Readln(s);
 end;
  CASE d OF
 1: WritInt(S);
 2: WriteLn('Kollichestvo zapisey v file "', S, '"=', Cou(S));
  END;
 readln;
end.

[eoln]

Если я ввожу в столбик больше одной цифры, выдаются какие-то странные и неверные значения..

По этому поводу замечу, что файл будет состоять не только из единиц, а ещё и из #13 и #10. Так с типизированными файлами нельзя. Да и впрочем и единицы вводить нельзя т.к. integer например 2 байта (хотя и не всегда). Лучше програмно это делать, вот как Alter

[1234]

Спасибо за ответы!! Мне как раз такой вариант подходит.
Сейчас подумаю и попробую доделать

[1234]

Снова, когда указываю путь к своему файлу, неверно считается
Какими символами его надо заполнять, чтобы выдавалось верное значение?

[eoln]

Какими символами его надо заполнять, чтобы выдавалось верное значение?

Типизированный файл типа integer надо заполнять не с помощью блокнота, а с помощью HexEditora'ов. Выставляем там вид - word, и заполняем, учитывая разницу word и integer. Все преобразования производим в инжинерном калькуляторе.
Короче эт долго и неприятно. Чем не подходит програмное заполнение файла?

[Serge_Bliznykov]

Снова, когда указываю путь к своему файлу, неверно считается
Какими символами его надо заполнять, чтобы выдавалось верное значение?

так вы же сами ответили на свой вопрос! ещё когда тему создавали - Расчет числа строк в типизированном файле. Файл не ТЕКСТОВЫЙ (подозреваю, что Вы в файл просто цифры вбили и решили, что он стал "file of Integer" :-)
создавать его нужно ТОЛЬКО программно... например, так:

var
  f : file of Integer;
  K : Integer;
begin
  Assign(f,"ПУТЬ И ИМЯ ВАШЕГО ФАЙЛА');
  Rewrite(f); {перезаписываем файл}
  WriteLn('Введите число (0 для окончания ввода:');
  repeat
    Readln(K);
    if K<>0 do Write(f,K);
  until K=0; 
  Close(f);
end;