проверьте пожалуйста срочно надо

11. Дан текстовый файл. Вывести количество содержащихся в нем символов и строк (маркеры концов строк EOLN и конца файла EOF при подсчете количества символов не учитывать).

program X_11;
uses crt;
var
iSymbolCount,iStringCount:integer;
strFileName,strTemp:string;
F:text;
begin
iSymbolCount:=0;
iStringCount:=0;
writeln ('Ââåäèòå èìÿ ôàéëà è ïóòü ê íåìó');
readln(strFileName);
assign (F, strFileName)
reset(f);
while not eof(F) do
begin
readln(F,stTemp);
inc(iStringCount);
inc(iSymbolCount,length(strTemp));
end;
close(F);
writeln ('Strings - ',iSymbolCount);
writeln ('Symbols - ',iStringCount);
readln;
end.