ошибка в модуле. Паскаль

[Elabrion]

Добрый день! Помогите разобраться в чем ошибка??

unit podprog;
interface
uses tipu;
         procedure vvod(var n1:integer; var a1:vect; var Q1:text);
         procedure form_2_otr(var c1:vect; a1:vect; k1,n1:integer);
         procedure form_2_pol(var c1:vect; a1:vect; k1,n1:integer);
         procedure upor(var a1:vect; n1:integer);
         procedure zapic_vect(var E1:matr; a1:vect; var p1:integer; n1:integer);
         procedure zapic_matr(var E1:matr; a1:vect; var p1:integer; n1:integer);
         procedure vuvod(p1,n1:integer; e1:matr; var W1:text);
         procedure vuvod(n1:integer; a1:vect; var W1:text);
implementation
procedure vvod(var n1:integer; var a1:vect; var Q1:text);
begin
read(Q,n1);
for i:=1 to n1 do
        read(Q,a1[i]);
end;
procedure form_2_otr(var c1:vect; a1:vect; k1,n1:integer);
begin
for i:=n1 downto 1 do
    if a1[i]<0 then
               begin
               k1:=k1+1;
               c1[k]:=a1[i];
               if k1>=2 then break;
               end
end;
procedure form_2_pol(var c1:vect; a1:vect; k1,n1:integer);
begin
for i:=1 to n1 do
    if a1[i]>0 then
               begin
               k1:=k1+1;
               c1[k]:=a1[i];
               if k1>=4 then break;
               end
end;
procedure upor(var a1:vect; n1:integer);
var z:real; l:integer;
begin
l:=0;
for i:=n1-1 downto 1 do
    for j:=n1 downto i+1 do
        l:=l+1;
        if abs(a[i])>abs(a[j]) then
           begin
           z:=a1[i];
           a1[i]:=a1[j];
           a1[j]:=z;
           end;
        if l>=3 then exit;
end;
procedure zapic_vect(var E1:matr; a1:vect; var p1:integer; n1:integer);
begin
p1:=p1+1;
for i:=1 to n1 do E1[i,p1]:=a1[i];
end;
procedure zapic_matr(var E1:matr; a1:vect; var p1:integer; n1:integer);
var l:real;
begin
p1:=p1+1;
l:=0;
for i:=n1 downto 1 do
    if a[i]>0 then
              begin
              l:=l+1;
              E1[i,p1]:=a1[i];
              if l>=4 then break;
              end;
end;
procedure vuvod(p1,n1:integer; a1:matr; var W1:text);
begin
for i:=1 to n1 do
    begin
    writeln(W1);
    for j:=1 to p1 do
        write(W1,a1[i,j]:4:1);
    end;
end;
procedure vuvod(n1:integer; a1:vect; var W1:text);
begin
for i:=1 to n1 do write(W1,a1[i]:4:1);
end; //ожидалось описание или begin

если поставить begin, то в 10 строчке пишет "отсутствует определение процедуры vuvod".

[veniside]

         procedure vuvod(p1,n1:integer; e1:matr; var W1:text);
         procedure vuvod(n1:integer; a1:vect; var W1:text);

процедуры с одинаковыми именами должны быть объявлены с директивой overload;. Если ваш Паскаль такой директивы не поддерживает, имена должны быть разными.

[Elabrion]

Спасибо, но все равно не помогло. Исправил имена на vuvod_vect и vuvod_matr, но выдает туже ошибку в тойже строке.

[Stilet]

Спасибо, но все равно не помогло.

Ты невнимательно внял правельному совету.
Тебе четко сказали - изучай директиву overload. Ты что сделал? Втупую прописал ее кое-где?
Короче:
1)

procedure vuvod(p1,n1:integer; e1:matr; var W1:text); overload;
         procedure vuvod(n1:integer; a1:vect; var W1:text);    overload;

и не забывать указывать шапку этих функций и в разделе реализации:

procedure vuvod(p1,n1:integer; a1:matr; var W1:text);   overload;
begin
for i:=1 to n1 do
    begin
    writeln(W1);
    for j:=1 to p1 do
        write(W1,a1[i,j]:4:1);
    end;
end;
procedure vuvod(n1:integer; a1:vect; var W1:text);  overload;
begin
for i:=1 to n1 do write(W1,a1[i]:4:1);
end;

2) Куча ошибок по коду:
Возьмем хотя бы это:

procedure vvod(var n1:integer; var a1:vect; var Q1:text);
begin
read(Q1,n1);
for i:=1 to n1 do
        read(Q,a1[i]);
end;

Счетчик для цикла описывается локально - запомни это или используй while
И что это за Q? Где она описана? в tipu? Тогда почему его не привел сюда?

Ну и так далее по коду ищи жучков подобных.

[Elabrion]

все равно не могу понять прицип работы overload! добавил все как ты сказал, теперь Паскаль в строке:

procedure vuvod(p1,n1:integer; e1:matr; var W1:text); overload;

пишет ошибку "ожидался begin"

[Stilet]

пишет ошибку "ожидался begin"

Показывай весь код. Кое-где ты видать еще провтыкал.

[Elabrion]

unit podprog;
interface
uses tipu;
         procedure vvod(var n1:integer; var a1:vect; var Q1:text);
         procedure form_2_otr(var c1:vect; a1:vect; k1,n1:integer);
         procedure form_2_pol(var c1:vect; a1:vect; k1,n1:integer);
         procedure upor(var a1:vect; n1:integer);
         procedure zapic_vect(var E1:matr; a1:vect; var p1:integer; n1:integer);
         procedure zapic_matr(var E1:matr; a1:vect; var p1:integer; n1:integer);
         procedure vuvod(p1,n1:integer; e1:matr; var W1:text); overload;
         procedure vuvod(n1:integer; a1:vect; var W1:text); overload;
implementation
procedure vvod(var n1:integer; var a1:vect; var Q1:text);
begin
read(Q,n1);
for i:=1 to n1 do
        read(Q,a1[i]);
end;
procedure form_2_otr(var c1:vect; a1:vect; k1,n1:integer);
begin
for i:=n1 downto 1 do
    if a1[i]<0 then
               begin
               k1:=k1+1;
               c1[k]:=a1[i];
               if k1>=2 then break;
               end
end;
procedure form_2_pol(var c1:vect; a1:vect; k1,n1:integer);
begin
for i:=1 to n1 do
    if a1[i]>0 then
               begin
               k1:=k1+1;
               c1[k]:=a1[i];
               if k1>=4 then break;
               end
end;
procedure upor(var a1:vect; n1:integer);
var z:real; l:integer;
begin
l:=0;
for i:=n1-1 downto 1 do
    for j:=n1 downto i+1 do
        l:=l+1;
        if abs(a[i])>abs(a[j]) then
           begin
           z:=a1[i];
           a1[i]:=a1[j];
           a1[j]:=z;
           end;
        if l>=3 then exit;
end;
procedure zapic_vect(var E1:matr; a1:vect; var p1:integer; n1:integer);
begin
p1:=p1+1;
for i:=1 to n1 do E1[i,p1]:=a1[i];
end;
procedure zapic_matr(var E1:matr; a1:vect; var p1:integer; n1:integer);
var l:real;
begin
p1:=p1+1;
l:=0;
for i:=n1 downto 1 do
    if a[i]>0 then
              begin
              l:=l+1;
              E1[i,p1]:=a1[i];
              if l>=4 then break;
              end;
end;
procedure vuvod(p1,n1:integer; a1:matr; var W1:text); overload;
begin 
for i:=1 to n1 do
    begin
    writeln(W1);
    for j:=1 to p1 do
        write(W1,a1[i,j]:4:1);
    end;
end;
procedure vuvod(n1:integer; a1:vect; var W1:text); overload;
begin
for i:=1 to n1 do write(W1,a1[i]:4:1);
end;
begin

[Stilet]

read(Q,n1);

Еще раз найвнимательнейше читай что я писал в посте выше про Q
Пока не исправишь мелкие ошибки - будешь напарываться на разные непонятные зачастую ругательства от компилятора.