Массив записей (delphi)

[CAMOBAP]

const
 N=100;
type
    TBlookVoprosov = record
      KV: integer;
      NV: integer;
       V: string;
      O1: string;
      O2: string;
      O3: string;
      O4: string;
      N: integer;
      end;
var
 bk:array[1..N] of BlookVoprosov;

procedure TForm2.sButton2Click(Sender: TObject);
for i:=1 to N do with bk[i] do
begin
AssignFile(F,fName);
Reset(F);
Readln(F,KV);
Readln(F,NV);
Readln(F,V);
Readln(F,O1);
Readln(F,O2);
Readln(F,O3);
Readln(F,O4);
Readln(F,N);
end;

Подскажите пожалуйста. Ругается на строчку

bk:array[1..N] of BlookVoprosov;

[Error] Unit2.pas(52): Undeclared identifier: 'BlookVoprosov'

Вроде же объявляю в type.а все равно

[GetMax]

А что такое BlookVoprosov? У тебя же объявлен тип TBlookVoprosov. Его и используй

[CAMOBAP]

Изложу проблему в целом потому как самостоятельно не выходит .
У меня есть файл. Мне надо считать из него информацию блоками, в каждом блоке 6 строк. Затем по нажатию клавиши по очереди выводить блоки на форму. На форме 6 label's которые соответствуют строке в блоке.

[Arigato]

BlookVoprosov замените на TBlookVoprosov.
Это решило Вашу проблему? Если да, вопрос темы исчерпан.

[Hacker19_90]

А как записываете???
Просто может проще записывать и считывать структурами!

[CAMOBAP]

Записываю так

var
 buf: string;
begin
memo1.text:=buf;
write(buf)

также шифрую файл xor'ом.

[phomm]

слегка был в ступоре.. уж извините, сперва подумал, зачем assign и reset вызывать в цикле, а потом и вовсе обомлел - for идет после заголовка процедуры... Переделай хотя бы этот косяк вот так

procedure TForm2.sButton2Click(Sender: TObject);
var I : integer;
begin
AssignFile(F,fName);
Reset(F);
for i:=1 to N do with bk[i] do
begin
Readln(F,KV);
Readln(F,NV);
Readln(F,V);
Readln(F,O1);
Readln(F,O2);
Readln(F,O3);
Readln(F,O4);
Readln(F,N);
end;
Closefile(F);
end;

[CAMOBAP]

Нет в коде все верно. Просто по кускам выкладывал.Что взял из вашего замечания так это что

AssignFile(F,fName);
Reset(F);

вне цикла for прописывать