в чем ошибка?

[Tolian92]

бд в файле

program fg;
type
zap = record
prep:integer;
hova:integer;
end;
label m1,m2,m3;
var
str:zap;
f:file of zap;
b:array[1..10,1..3] of integer;
n,i,j,s,k:integer;
x:boolean;
begin
readln(n);
assign(f, 'D:\lapshov\pasp.bd');
reset(f);
FOR i:=1 to 10 do begin;
readln(str.prep,str.hova);
b[i,1]:=str.prep;
b[i,2]:=str.hova;
end;
close (f);
FOR i:=1 to 10 do begin
FOR i:=1 to 10 do write;
end;
FOR i:=1 to 10 do begin;
for j:=1 to 2 do;
write(b[i,j], ' ');
writeln;
end;


b[i,3]:=b[i,2];
FOR i:=1 to 10 do begin
FOR i:=1 to 3 do write;
end;


i:=1;
m2: s:=0;
for j:=1 to 1 do s:=s+b[j,3];
if s=36 then GOTO m1;
if s<36 then begin;
if b[i,3]/ 2<>0 then b[i,3]:=b[i,3]+1;
i:=i+1 ;if i>10 then GOTO m2;
if b[i,3]/2<>0 then b[i,3]:=b[i,3]+1;
i:=i+1;if i>10 then GOTO m2;
end;
begin;
if b[i,3]/2<>0 then b[i,3]:=b[i,3]-1;
i:=i+1;if i>10 then GOTO m2;
end;
m3:k:=36-s;
for i:=1 to n/2 do begin  b[i,3]=b[i,3]+2;
m1 FOR i:=1 to 10 do begin
FOR i:=1 to 10 do write b[i,n];
writeln;
end.

[ZX Spectrum-128]

assign(f, 'D:\lapshov\pasp.bd');
reset(f);
FOR i:=1 to 10 do begin;
readln(str.prep,str.hova);  <---- read(f,str.prep,str.hova);
b[i,1]:=str.prep;
b[i,2]:=str.hova;
end;
close (f);

Зачем вы вообще открываете файл, если все равно заполняете массив с клавиатуры?

[Serge_Bliznykov]

этот ВЕСЬ код одна сплошная ошибка!
Начиная с того, что в программе открывается файл pasp.bd, а приложен архив с файлом lapshov.db (особенно забавна путаница в расширении), продолжая - структура файла явно не соответствует заявленной структуре (похоже, что это реально парадоксовский файл данных), продолжая то, что из этого файла ничего не читается и заканчивая тем, что в конце банально синтаксические ошибки (нет пары end, нет скобок во write, нет двоеточия после метки...):

for i:=1 to n div 2 do begin  
   b[i,3]=b[i,3]+2;
   m1: 
   FOR i:=1 to 10 do begin
     FOR i:=1 to 10 do write(b[i,n]);
     writeln;
   end;
  end;
end.

Что должен делать этот код, боюсь даже его автор не знает.
Про метки я уже вообще молчу.


Короче, думаю, что проще написать программу заново, чем приводить в рабочее состояние данное произведение.