Записи в массивах

type koords=record //у тебя что на begin не ругается?
          point:boolean;
          c:byte;
          poz:boolean;
          end;
ms=array[1..10] of koords;
var m:ms;
begin
...
m[1].point:=true;
...
end.

...
type koords=record
          point:boolean;
          c:byte;
          napr:boolean;
          end;
ms1=array[1..10] of koords;
ms=array[1..12,1..12] of byte
...

procedure zap(e,h,q,i1:byte;fl:boolean;var m1:ms;m2:ms1);
var r,k,k1:byte
begin
if fl then begin r:=e+2;
        for k:=h to h+1+q do for k1:=e to r do m1[k1,k]:=1;
          for k:=h+1 to h+q do m1[e+1,k]:=2;
else begin r:=h+2
       for k1:=e to e+q+1 do for k:=h to r do m1[k1,k]:=1;
          for k1:=e to e+q do m1[k1,h+1]:=2;
{Вот здесь начинается присваивание полям}
with m2[e,h] do
         begin point:=true;
         c:=q;
         napr:=fl
         end  
end;

ms1=array[1..10] of koords;
ms=array[1..12,1..12] of byte
...
procedure zap(e,h,q,i1:byte;fl:boolean;var m1:ms;m2:ms1);
.....
with m2[e,h] do
         begin point:=true;
         c:=q;
         napr:=fl;
         end;

var a:ms1;b:ms;
...
zap(1,1,1,1,false(потом true),b,a);

var x,y,c,l:byte; flag:boolean; m:ms; mm:ms1
...
begin
...
zap(x,y,c,l,flag,m,mm);
...
end.

function test(a:word):boolean;
begin
a:=6;
writeln(a); //выведет 6
test:=true;
end;
...
begin
a:=1;
test(a);
writeln(a); //выведет 1
end.

procedure zap(e,h,q,i1:byte; fl:boolean;var m1:ms; m2:ms1);