Подсчитать количество символов в файле и вывести на экран.
pascal.

var

 t : string;

 f : text;

 i, k : integer;

begin

 assign(f, 'file.txt');

// создаем файл

 rewrite(f);

 repeat

   write('Вводим строку(окончание ввода "~"): ');

   readln(s);

   writeln(f, s)

 until t = '~';

 close(f);

 writeln('Нажмите Enter...');

 readln;

 // считаем символы

 reset(f);

 k := 0;

 while not EOF(f) do

 begin

   readln(f, t);

   for i := 1 to length(s) do inc(k)      

 end;

 close(f);

 writeln('Символов в файле: ', k)

end.