задача на паскале

[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);
reset(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 вывод

[ZX Spectrum-128]

Скопировать этот текст в паскаль и вызвать режим "компиляция". Компилятор честно расскажет вам о ваших ошибках.
Начиная с 4-й строки.

[Serge_Bliznykov]

КРОССПОСТ.
ТЕМА ЗАКРЫТА!