Произведение вектора на матрицу(исправить код программы)

uses crt;                                                
a1,a2:text;
v:array[1..10] of integer;                                
z:array[1..10,1..10] of integer;
var s,k,n,m,i,j:integer;                                           
begin                                                                  
assign(a1,'E:\input.txt');                                                                              
assign(a2,'E:\output.txt');
reset(a1);
rewrute(a2);
while not (eof(a1)) do
begin
readln(a1,m,n);
for i:=1 to m do
readln(a1,v[i]);
for i:=1 to m do
for j:=1 to n do
read(a1,z[i,j]);
end;
for j:=1 to n do
begin
s:=0;
for i:=1 to m d0
begin
k:=v[i]*z[i,j];
s:=s+k;
end;
writeln(a2,s);
end;
close (a1);
close(a2);
end.

uses crt;                                                
var a1,a2:text;
    v,res:array[1..10] of integer;//векторы исходный и результат
    z:array[1..10,1..10] of integer;
    n,m,i,j:integer;
begin
clrscr;
assign(a1,'input.txt');
assign(a2,'output.txt');
reset(a1);
rewrite(a2);
read(a1,n);write('n=',n,' ');//читаем количество строк и размер вектора
read(a1,m);writeln('m=',m,' ');//читаем количество столбцов
writeln;
for i:=1 to n do read(a1,v[i]);//читаем вектор
writeln('Vector:');
for i:=1 to n do write(v[i],' ');
writeln;
writeln;
for i:=1 to n do
for j:=1 to m do read(a1,z[i,j]);
writeln('Matrica:');
for i:=1 to n do//читаем матрицу
 begin
  for j:=1 to m do
  write(z[i,j]:4);
  writeln;
 end;
for i:=1 to n do
  begin
   res[i]:=0;
   for j:=1 to m do
   res[i]:=res[i]+z[i,j]*v[i];//вычисляем
  end;
writeln('Rezultat:');
for i:=1 to n do
 begin
  write(res[i],' ');
  write(a2,res[i],'  ');
 end;
close (a1);
close(a2);
readln
end.