Легкая задачка

[Васька]

Помогите с задачей:
Нужна программа которая считывает данные из файла и определяет количество строк и символов.

У меня получилась описательная часть:

Var
Str : string
Sim : byte
Text : string

[Викдон]

var simvol:char;
     bloknot:text;
     flag,flag2:integer;
begin
flag2:=0;
flag:=0;
assign(bloknot,'C:\1.txt');
reset(bloknot);

 while not eof(bloknot) do
   begin
    while not eoln(bloknot) do
      begin
       read(bloknot,simvol);
       inc(flag);
      end; {while not eoln}
   inc(flag2);
   readln(bloknot);
 end; {while not eof}

writeln('Строк в файле: ',flag2);
write('Символов в файле: ',flag);

readln;

end.