Программа работала. В ней ничего не менялось. Но она перестала запускаться

[Aitsan]

программа работала. ничего не меняла, но в этот раз она у же не запускается
ошибка в этой части кода:

AssignFile(f,'Тест1.txt');
Reset(f);
for j:=1 to i do
begin
ReadLn(f,s0); // читати із файла рядок
ReadLn(f,s1);
ReadLn(f,s2);
ReadLn(f,s3);
ReadLn(f,pv);
AnswerGroup.Items.Clear;// очищаем поле ответов
Question.Caption:=s0;// задаем запрос
AnswerGroup.Items.Add(s1);// добавляем ответы
AnswerGroup.Items.Add(s2);
AnswerGroup.Items.Add(s3);
end;
CloseFile(f);

ошибки:

[Pascal Error] Unit2.pas(146): E2055 Illegal type in Read/Readln statement
[Pascal Error] Unit2.pas(153): E2008 Incompatible types

помогите пожалуйста

[Poma][a]

Не плохо бы увидеть описание переменной F, s0, ..., s3, pv

[Aitsan]

var
  Form2: TForm2;                       
  ball, a, j, T, pv,i,p: integer;                         
  s0,s1,s2,s3,s4,s5,s6, ch1, ch2, ch3:string;
  f: TextFile;
  kb, v:real;

var
Form2: TForm2; 
ball, a, j, T, pv,i,p: integer; 
s0,s1,s2,s3,s4,s5,s6, ch1, ch2, ch3:string;
f: TextFile;
kb, v:real;

спасайте

[Аватар]

Тест1.txt поменялся видимо - вот и ожидаемый результат

[Poma][a]

Хм.. Посути ничего криминального в Вашем коде нет.

Тест1.txt поменялся видимо - вот и ожидаемый результат

Насколько я понял код даже не компилится.

ТС, без полного кода тут не разобраться (ИМХО).
Хотя бы потому что компилятор говорит об ошибке в Read\ReadLn'е. А Вы показываете ошибку в AssignFile.

Так же паскаль (как минимум Турбо, Фри) сохраняют копию исходника в файлик с расширением bak. Если есть что-то похожее в дельфи, то можете посмотреть и этот файлик.