Не могу понять в чем ошибка

[wegan32]

unit modul;
interface
const nmax=100;
var n:byte;
type vec=array[1..nmax] of integer;
procedure vvod(var a:vec);
procedure vyvod(a:vec;c:char);
procedure summa(a,b:vec;var c:vec);
implementation
procedure vvod;
var i:byte;
begin
for i:=1 to n do
a[i]:=random(100);
end;
procedure vyvod;
var i:byte;
begin
writeln('Вектор ',c);
for i:=1 to n do
write(a[i]:4);
writeln
end;
procedure summa;
var i:byte;
begin
for i:=1 to n do
c[i]:=a[i]+b[i];
vyvod(c,'C');
end;
end.
uses crt,modul;
var a,b,c:vec;
begin
clrscr;
randomize;
repeat
write('Размер массива до ',nmax,' n=');
readln(n);
until n in [1..nmax];
vvod(a);
vvod(b);
vyvod(a,'A');
vyvod(b,'B');
summa(a,b,c);
readln
end.

[BDA]

Код юнита нужно сохранить в один файл (modul.pas), а код программы в другой и начать его со строки "program myprog;", например.