diagen_62

вот сидел пробовал..помогите исправить ошибки


const
b=10;m=4;
var a:array[1..b,1..m] of integer;
p,n,k,i,g:integer;
begin
randomize;
n:=b;
for i:=1 to n do
for g:=1 to m do begin
p:=a[k,g]; a[k,g]:=a[n,g]; a[n,g]:=p; end
end.