Текстовый файл, Дан текстовый файл, дописать в его конце... Опции

[Kempf]

Народ, подскажите ПОЖАЛУЙСТА, как можна написать эту програмку.


Дан текстовый файл, дописать в его конце следующие данные: количество строк и количество символов в кождой строке.

Заранее благодарен.

[мисс_граффити]

Renbo, а можно поподробнее про виды доступа к текстовым файлам?..
я только про последовательный слышала...

[Renbo]

Renbo, а можно поподробнее про виды доступа к текстовым файлам?..
я только про последовательный слышала...

Точно, я что-то попутал )) Просто, делая одновременно 2 лабы(текстовый и типизированный фаил), я уж запутался )
Да, с текстовым файлом только последовательный доступ


Kempf, создаёшь фаил.

USES CRT;

Procedure kol-voStrok;
Var
  s:string;
  i:integer;
Begin
i:=0;
assign(File,'text.txt');
reset(File);
while not eof(File) do
  begin
    read(File,s);
    inc(i);
  end;
write('У вас в файле  ',i,'  строк');
readkey;
End;

Это кол-во строк

[Kempf]

Точно, я что-то попутал )) Просто, делая одновременно 2 лабы(текстовый и типизированный фаил), я уж запутался )
Да, с текстовым файлом только последовательный доступ
Kempf, создаёшь фаил.

USES CRT;

Procedure kol-voStrok;
Var
  s:string;
  i:integer;
Begin
i:=0;
assign(File,'text.txt');
reset(File);
while not eof(File) do
  begin
    read(File,s);
    inc(i);
  end;
write('У вас в файле  ',i,'  строк');
readkey;
End;

Это кол-во строк

Это я понял, а как это дописать в этот же файл?