программа с подпрограммами

[Elabrion]

Здравствуйте!
Помогите, пожалуйста, найтиошибку в программе!

program lab1_3;
Type
    vect=array[1..10,1..10] of real;
var
   m,n,i,j,p:integer;
   k,max,max1,c:real;
   a:vect;
   Q,E:text;
procedure vvod(m1,n1:integer; a1:vect);
begin
read(Q,m1,n1);
for i:=1 to m1 do
    for j:=1 to n1 do
        read(Q,a1[i,j]);
end;
procedure vuvod(m1,n1:integer; a1:vect);
begin
for i:=1 to m1 do
    begin
    writeln(E);
    for j:=1 to n1 do
        write(E, ' a[',i,j,']= ', a1[i,j]:4:1);
    end;
end;
function max_1(m1,n1:integer; a1:vect; max:real):real;
begin
max:=a1[1,1];
for i:=1 to m1 do
    for j:=1 to n1 do
        if a1[i,j]>max then
           max:=a1[i,j];
max1:=max;
end;
procedure dopic(m1,n1:integer; a1:vect);
begin
for j:=1 to n1 do
    begin
    a1[m1+1,j]:=0;
    for i:=1 to m1 do
        if a1[i,j]>0 then
           a1[m1+1,j]:=a1[m1+1,j]+a1[i,j];
    end;
end;
procedure upor(m1,n1:integer; a1:vect; c:real);
begin
for i:=1 to n1-1 do
    for j:=i+1 to n1 do
        if a[m1+1,i]>a[m1+1,j] then
           begin
           c:=a1[m1+1,i];
           a1[m1+1,i]:=a1[m1+1,j];
           a1[m1+1,j]:=c;
           end;
end;
begin
assign(Q,'lab1_3.dat'); assign(E,'lab1_3.res');
reset(Q); rewrite(E);

vvod(m,n,a);
writeln(E,'ichodnaya matrica: ');
vuvod(m,n,a);
vvod(m,n,a);
max1:=max_1(m,n,a,max);
writeln(E, 'max ellement ishodnoi matricu:    ',max1:5:2);
dopic(m,n,a);
upor(m,n,a,c);
p:=m+1;
dopic(p,n,a);
upor(p,n,a,c);
writeln(E,'ispravlennaya matrica: ');
vuvod(p,n,a);
max1:=max_1(p,n,a,max);
writeln(E, 'max ellement ispravlenoi matricu:    ',max1:5:2);
close(Q);
close(E);
end.

исходные данные:
3 4
-5 8.6 7 1.9 4.2 1.5 3.7 -4 9.6 -2 -0.5 0.2

[Stilet]

И че это программа делает?

[Elabrion]

дописывает 2 строки, считает макс. элементы