aftio

Здравствуйте, у меня следующая проблема: делаю тест, вопросы, время и обязательное количество вопросов считывает из файла. Когда проискходит считывание времени оно не выводится.
Вот алгоритм считывания файла:

while not Eof(F) do
begin
Readln(F,s);
if s<>'' then
if s[1]='#' then VOP1:=strtoint(copy(s,2,length(s)))
else if s[1]='^' then vrema:=copy(s,2,length(s))
else if s[1]='?' then
begin
K[i].question:=copy(s,2,length(s));
kolvop:=kolvop+1;
j:=1;
Readln(F,s);
while s<>'' do
begin
if s[1]='!' then
K[i].recom:=copy(s,2,length(s))
else
begin
if s[1]='*' then
begin
K[i].otvet:=j;
K[i].ans[j]:=copy(s,2,length(s));
end
else
K[i].ans[j]:=s;
j:=j+1;
end;
readln(F,s)
end;
end;
var_otv[i]:=j-1;
i:=i+1;
end;

Pavlucha

Здесь спроси http://www.cyberforum.ru/
или здесь http://programmersforum.ru/index.php