с матрицей и с базой

[Tolian92]

помогите до делать прогу

program fg;
type
zap:record
prep:integer
hova:integer;
end
var
str:zap
f:file of zap;
b:array[1...10,1..3] of integer;
n:integer
begin
readln(n);
assign(f, 'd:\bde.bd);
zezet(f);
FOR i:=1 to 10 begin
readln(f,str.prep,str.hova)
b[i,1]=str.prep
b[i,2]=str.hova
end;
close (f);
вывод матрицы
end
FOR i:=1 to 10 do begin;
for f:=1 to 2 do;
write(b[i,j], ' ');
writeln;
end;
b[i,3]=b[i,2]
вывод матрицы b[10,3]
i=1
m2 s:=0
for f:=1 to 1 do s:=s+b[f,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 m3
GOTO m2
end;
if b[i,3]2<>0 then b[i,3]=b[i,3]+1
i:=i+1< if i>10 then GOTO m3
GOTO m2
end;
else begin 
if b[i,3]2<>0 then b[i,3]=b[i,3]-1
i:=i+1< if i>10 then GOTO m3
end;
m3;
k:=36-s
for i:=1 to n/2 do b[i,3]=b[i,3]+2
m1 вывод

[Mad_Cat]

type
zap = record
prep:integer
hova:integer;
end;

str:zap;

reset(f);

[Tolian92]

а остальное правильно?